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РВЕРАСЕ 





Creative Games For the Тїтех Sinclair 2068 is aimed at T52068 
owners who want to know and use their computer more fully through 
the medium of games, whether they are learning with the machine for 
the very first time or whether they are more experienced users. For 
beginners there is a simple guide to entering programs, and each 
program listing is clearly presented with accompanying instructions on 
playing the game. For those more advanced in programming skills, a 
complete program design method is introduced, each games program is 
explained and documented fully, and many programming techniques 
are included in the form of program notes. Games are organized into 
sections for ease of reference, e.g. number games, word games, card 
games and board games. 


Even the most seasoned computer professional will admit to enjoying 
computer games, and the selection included in this book is made up 
both of old favorites, particularly if the program method can be carefully 
studied, and completely original games. Using this text together with 
the Т52068 manual, the reader can progress from just playing the 
games to understanding their structure, modifying them and eventually 
designing original creations. Machine code routines are not included in 
any program in order that further reference books need not be 
examined. This book aims to be a self-contained guide to advanced 
TS2068 Basic programming, while also providing ready-to-use games 
for new Т52068 owners. 


It is recommended that the reader who wishes to initially use this text 
just as a source of games should read Chapter 1 and then commence 
with the program of their choice. Readers who have already 
programmed the TS2068 may wish to skip Chapter 1 and start with 
Chapter 2. Subsequently the chapters are relatively self-contained and 
can be considered in any order. The programs in a given chapter should 
be read through in sequence as material is introduced progressively. 


СНАРТЕВ ОМЕ 


STARTING ON TS2068 GAMES 





This chapter is designed for readers who have recently acquired the 
TS2068 and who want to use it, at least initially, for playing games. 


1.1 SETTING UP THE TS2068 


Make Sure it All Works 


In spite of one's natural desire to start using ihe computer immediately 
it is very important to make sure that everything works properly before 
trying to type in a large game. To this end, the instructions in Chapter 1 
of the TS2068 manual should be followed closely regarding plugging in 
all the bits and pieces. Initially, try and choose a place where you can do 
this on your own as a multitude of fingers poking around with leads and 
plugs often does not help. 


Once the copyright line appears on the television screen you are on the 
right track, but it is still important to check two items before attempting 
the spectacular: the television must be tuned in precisely in order to 
fully appreciate the range of TS2068 colors, and also the cassette 
linkage must be tested. There is nothing more frustrating than spending 
an hour entering a program, only to find that it cannot be stored on 
cassette and is therefore going to be lost when the TS2068 is switched 
off. 


To check the TV tuning we will run a short program to give a tuning 
picture, as with television test transmissions. However, before this can be 
done, the reader must be familiar with typing in programs. 


Using the Keyboard 


The means by which information is entered into the T52068's memory 
is generally by pressing keys on the keyboard. Unfortunately, it is not a 
simple case of looking at a program listing and typing it in letter by 
letter; this will not work. The TS2068 uses many special words 
(keywords) in programs which must be entered by pressing the 
appropriate keyword key. Sometimes the user may have to press several 
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other keys before the Т52068 is ready to recognize the keyword. To 
gain an insight into this, the reader is directed to Chapter 2 of the 
TS2068 manual. 


In order to type in a program it is necessary to appreciate a little theory. 
A TS2068 program is a list of numbered lines. Each line may have 
several instructions, separated by colons. At the end of a typed line the 
user must press ENTER. If the line does not move from the base of the 
TV screen then something is wrong; a flashing question mark at the end 
of the line indicates this. 


To relieve the boredom of typing in a program the user may press RUN 
to get the TS2068 to obey the instructions entered so far. There is 
nothing wrong with this, providing one appreciates that a program will 
not work properly unless it is complete, and also the Т52068 screen 
may be left in a strange state, particularly as far as colors are concerned. 
More on this later. 


Having mastered Chapter 2 of the T52068 manual, one may start 
entering a program. In the last section of this book we have included a 
quick reference guide to keying in programs. This lists every symbol or 
word you will find in a program in this book and shows clearly how it is 
obtained. If you should find as you type in a program, that the sequence 
does not seem to work, then the TS2068 has not understood 
something typed in previously in that line. For example, if you were 
entering a line 


PLOT x, 175: DRAW 0,—63 


and you keyed ; instead of :, then the DRAW key (W in the keyboard 
guide) would just give you W. This is because the TS2068 thinks you 
are still somehow dealing with a PLOT instruction; it has not had the 
right separator (a colon) supplied. Such mistakes need to be corrected, 
as described in Chapter 2 of the TS2068 manual. 


Whenever a TS2068 key is pressed, a faint click may be heard—this is 
not from the key itself but is emitted from the ‘‘loud’’ speaker inside the 
TS2068. This confirmatory sound may be made more audible by 
entering 


POKE 23609,50 (and ENTER) 


Any subsequent key depressions are heard as a beep. In fact you may 
like to experiment with values higher than 50 to see what you prefer 
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best. Whatever value you use, the note will remain the same until you 
switch off the TS2068. There are one or two other general rules to be 
noted before starting to type in a program. Zero (0) and the letter О (0) 
are not the same and must be entered differently on the keyboard. 

Secondly, let us consider spaces. Generally spaces in program listings 
are provided by the Т52068 itself. For example key P т К mode gives 


space PRINT space 


The user can add further spaces (in fact these can add clarity to a 
listing—see Chapter 2) but these are irrelevant to the meaning of the 
program. The only place where spaces may be specifically needed in a 
program listing is between quotation marks e.g. in a PRINT statement. 
Failure to enter the proper number of spaces will mean that the program 
is not completely correct. It may work but certainly the screen layout will 
not be as intended. Also, if the symbol | is encountered, unless it is in a 
keyword (e.g. PRINT), it is always the lowercase letter | (as in lion). 


One final hint. As stated above, when entering a listing the user may 
type RUN half way through to see what happens and this may result in 
strange things, particularly colors, on the screen which continue even 
when the listing returns. To overcome this, enter the following line 
before starting to key in a program. 


9999 BORDER 7: PAPER 7: INK 0: CLS: STOP 
Then if color problems are found, type 
GO TO 9999 


Line 9999 clears the screen and sets the screen colors to black 
characters on a white background, the same state as when the TS2068 
is first switched on. 


The reader may now like to practice using the keyboard with the 
Keyboard Guide found at the back of this manual. The TV tuning test 
program below is a good starting point. 


Adjusting the Television 


If you are using a black and white set, tuning is much more 
straightforward. Often with a color set it is difficult to obtain both 

good colors and clear symbols. The test program listed below eventually 
sets up a screen with a pattern like this. 
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The numbered blocks in the center are the colors, 0 to 7, i.e. black, 
blue, red, magenta, green, cyan, yellow and white. To get just this 
section in order to tune in your TV set for the right colors, enter these 
instructions: 


са 
1 


258 FOR i 
30 PRINT 
і,с%4;" ш 
48 НЕХТ i 
50 PRINT BRIGHT 1; PAPER 8; IH 
Е Э; ЯТ 18,034: 
Ба НЕХТ c 
The following lines produce the normal and inverse character sets. 
100 PRINT AT 
110 FOR v=8 ТО 
180 FOR Һ-33 
RSE v; CHR ! 
130 PRINT 
1420 NEXT ¥ 
Finally the line and circle pattern at the top of the screen may be 
produced by entering 


Hd 
ім 
Ыр 
ч 
к" 

ті 
да} 

"n 
rmn 

T 

Р 

on 
+ 
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Checking the Cassette Recorder 


Assuming the television is now tuned in as well as possible to the 
TS2068, it seems a good idea to keep this test program for future use. 
You may have allocated a spare button on your set exclusively for the 
TS2068, in which case there may be no need to use the program 
again. However, it is often true that other settings such as contrast or 
brightness need different positions for ordinary TV watching compared 
with TS2068 watching. Naturally such trivia will not bother most 
readers, who will doubtless have devoted one of their many color 
portables exclusively to TS2068 use. The fact remains that often we 
need to store programs on cassette tape, and the program that was 
entered in the previous section seems a good one with which to start. 


Chapter 4 of the TS2068 manual is an excellent description of the use 
of cassette storage and should be read carefully. You may like to call the 
program TVTEST and then attempt to SAVE it and then VERIFY it using 
the details in the chapter. If VERIFY is successful you may, without a 
twinge of conscience, pull the plug out on your Т52068 and relax in 
the happy knowledge that you can reload TVTEST again whenever you 
wish, providing you can find the same cassette. On this matter it is well 
worth being thorough in labelling and cataloguing cassettes to avoid the 
panic of overwriting, losing or otherwise botching up programs which 
took precious time to key in. 


1.2 USING THIS BOOK 


Playing the Games 





Once you are convinced that the TS2068 is fully operational, 

cassette linkage and all, and you have had some practice on the 
keyboard, it is an appropriate time to start using some of the games in 
this manual. Each game comes with a great deal of accompanying 
information, but the only parts to concern the reader at this stage are the 
description, the program listing and any footnotes following the listing. 
Use the description to find out about the game and how to play it and 
then enter the program from the listing, paying attention to any 
footnotes. For simplicity, games in the manual do not contain a detailed 
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list of instructions on how to play in the program itself. If these are 
required, simply distill the main points from the written description and 
then include them as PRINT instruction(s) with line number(s) preceding 
the first line number in the listing 


e.g. (The X symbol is used here to indicate a space.) 


1 PRINT "In x this ж game * you ж try x to x beat x the ж 
computer x at x estimating ж the ж value x of x Pl ж to x one x 
hundred x decimal x places. x ж If x you ж win ж you x get x 
10 x points. x x If ж you ж lose x the x keyboard x is x electrified. 
ж ж Good ж luck!” 


You may find that words get split between lines—to overcome this 
simply add extra spaces before the split word to push it onto the next 
line. After these instructions you need a line such as 


4 INPUT "Press ж ENTER ж to x start ж the ж game: ; LINE 
2$: CLS 


This line gets the player to press the ENTER Key when the instructions 
have been read. Then the game will begin. 


Progressing Further 


After playing a game, the reader may wish to make modifications to it. 
Sometimes modifications are suggested in the description. This is an 
excellent way of learning about programming, and reference should be 
made to the method and variables sections of the program description 
to understand more fully what the program is doing. Refer also to the 
TS2068 manual to see the meaning and effect of instructions. 


From here you may wish to move on to designing your own programs, 
and Chapter 2 of this book will equip you to do this. 








CHAPTER TWO 
DESIGNING TS2068 GAMES 





This chapter is designed for readers familiar with programming. 


2.1 INTRODUCTION | 


In the days of our forebears, before the coming of the TS2068, when 
the strange rites of ZX80, ZX81, and TS1000 were practiced, our 
people were made to worship the god of Memory-Saving. All manner of 
great and wise artifacts were sacrificed to this god and even the sacred 
ancient tablets of Understanding and Structure were broken to appease 
the wrath of the Memory-Saving god. The god would only accept 
offerings of weird and mystical sayings which few could comprehend 
and these were spread abroad and the god said that it was good. But 
now we rejoice in the dawning of a new age where the bonds of ZX80, 
ZX81, and TS1000 will be broken asunder and we exult in the rule of 
the 752068. Once again the land will resound to cries of "Modular 
Programming!” and "Easily Modified!” as we together renounce the 
black arts of Memory-Saving and return to the wise and true sayings of 
the ancients. 








Programs in this book are designed to reflect good programming 
practice and documentation. It is suggested that readers familiar with 
programming should choose chapters or games which interest them, 
perhaps key in a program to try it out and then consider it in more 
depth. Each program is described under the headings of 


) description 

i) method 

i) screen layout 
) variables 

v) program listing 
i) notes 


The method is designed according to the principles outlined in this 
chapter and is cross referenced to the program listing by means of 
annotated line numbers. Study of the method section is the best way of 
understanding how the program works. Any notable techniques used in 
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the program are explained in the notes section. 


This chapter is concerned with how a game may be brought from the 
idea stage to be a clear, well-structured working program on the 
TS2068. Most of the material applies to programs other than games 
and in fact to programming on other machines as well. 


2.2 A GOOD GAME 


What makes a good game program? This question may be considered 
in two parts—firstly what is a good game, and secondly, what is a good 
program? 


Qualities of Games 


Different players prefer different games but generally a game needs to 
be challenging (containing the right balance of luck and skill), novel, 
and complex enough to retain interest but simple enough to pick up 
quickly. The game should provide the player with feedback as to 
performance—at least whether the game was won or lost, and 
preferably a graded score. Some programmers ignore the playing 
potential of programs they design and treat the exercise as a means to 
show off their technical skill in designing algorithms. The end result is a 
technically brilliant program which is no fun as a game. 


Similarly one should consider whether the game chosen is suitable for 
playing on a computer. Programs exist where the computer acts as the 
board and players enter their moves through the keyboard. While this 
may be satisfactory for two or three players, particularly if the very fact 
that it is a computer game holds some fascination for them, it could 
certainly become cumbersome with six players—unless of course you 
networked six TS2068s together with a projection television as the 
display! 


Qualities of Games Programs 


Any program, game or otherwise, should aim to be correct, efficient, 
easily modified, and idiot proof. In addition, games programs, in order 
to fulfill the aims previously outlined, should make good use of 
graphics, color and sound, incorporating clear screen layouts and 
sensible interaction with the player. 


We therefore require our games program to work properly, in spite of 
possible mistakes by the player, to work quickly, and to enable us to 
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change its features easily. 


As the reader will appreciate, none of these objectives are completely 
attainable, and some are not entirely complementary. However if the 
programmer aims at nothing, that is exactly what will be achieved— 
nothing. Many brilliant people have come up with excellent methods of 
designing programs to meet many of these aims and although they may 
have made their proposals for programmers working on multimillion 
dollar mainframe computers, their ideas are just as relevant for the 
TS2068 programmer. We now consider some of these ideas. 


2.3 HOW TO DESIGN A GOOD GAME 


Why Bother? 





If you have an idea for a T52068 game why not just start typing it in? 
The answer is that you will end up, probably several days later, with a 
program that may work but that makes Rube Goldberg creations look 
like masterpieces of structural design; and heaven forbid that you 
should find an error in it or wish to modify it, as this will be nearly 
impossible. 


In the good old days before microcomputers polluted our shores, 
programmers used terminals linked to mainframe computers which held 
strict records as to how much time the programmers spent on the 
machine. Online time was severely limited and the computer manager 
could thrust a complete list of all unsuccessful program runs under the 
programmer's nose and ask for explanations. This meant that the poor 
artisan actually had to ensure that any time on the computer was 
well-spent. Precious seconds could not be spent staring at the terminal 
thinking of which software fiddle to bolt-on next. 


Apart from the odd time when you need to ‘‘see what happens if..."', 
your time on the TS2068 should be spent either in enjoying using a 
program or simply keying in a program that you have previously 
prepared on paper. A builder does not build a house by shoving a few 
bricks together and then wondering what to do next: there is a carefully 
designed plan from which the builder works. If this were not the case, 
people would have no confidence in the completed buildings, and the 
same applies to our programs. 


From the author's own experience, as far as writing programs is 
concerned, it is quicker to do it properly. Much time is saved by 
discovering errors on paper rather than when on the machine. This 
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disciplined approach is not easy, particularly when you have a brilliant 
idea for a program that you are bursting to implement. You may like 

to imagine a large red sign on the Т52068 keyboard which reads 
"DON'T TOUCH until you know exactly what you are going to do.” 


Crystallizing the Idea 


Ideas for games can spring from many different sources, whether as 
variants of existing games or as original material. However the idea 
must be crystallized into a description of the game before any further 
work can be done. 


The designer may ask a number of questions in order to assist in 
clarifying the idea. 


What will the screen look like? 

What is the player expected to enter? 
How will the game start? 

How will the game end? 

How can the player do well? 

In what way is skill required? 


NUE ON = 


Once these questions have been answered, a description of the game 
should be written, consisting of about a paragraph of text, as in the 
programs in this manual. At the same time the screen format can be 
sketched in draft form. 


To understand the process more fully, let us consider the first game in 
the book, Crack the Combination. The author had the idea of designing 
a game in which the player tries to break into a safe with a combination 
lock. Let us consider the six questions above. 


1. The screen. It will display the dial of a combination lock 
with one number uppermost. There will be a game title and room 
(somewhere) for messages to the player. 

2. Player's entries. The player has to type in the number to 
which the dial is to be turned. 

3. The game starts with the combination turned to the highest 
number, which we choose to be 50. А code has been set, consisting of 
three numbers (again three is a personal choice). 

4. The game ends with either the player guessing the code or 
running out of attempts. Restrict the number of allowed attempts to ten. 
If the player loses, we will create an alarm sound. 

5. The player can do well by breaking the code in the least 
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number of attempts, in which case we had better show the player how 
many attempts they have made. No—for greater realism we will display 
SECURITY UNITS which start at 10 and decrease. 

6. Skill. Burglars use their hearing to detect when the 
combination dial turns past the right number. Let us do a similar thing 
with this game—make a tone sound which increases up to the code 
number and then falls again. Perhaps include a ‘‘click’’ when the 
number is passed, as well. 


The reader will notice that many decisions about the nature and format 
of the game are being made at this stage. Obviously such decisions 
must be based upon a practical knowledge of what the TS2068 can 
and cannot be programmed to do, and this only comes with practice. 
Some of the more nebulous ideas envisaged above become clearer as 
the game description is written as a brief paragraph and as the screen 
format is drawn (see Crack the Combination in Chapter 3). 


The Program Method 


Since we want to produce a program which is itself just a list of 
steps, it seems sensible to design the program method as a list of 
steps. A perfectly viable program method is 


1. Start the game 
2. Play the game 
3. Finish the game 


but this is obviously insufficient detail with which to go to the TS2068 
and know exactly what we are going to type in. We will follow a system 
known in the trade as stepwise refinement which starts with the 
method in very broad detail, as above, and gradually fills in more and 
more detail to each step and parts of steps until the Basic program is 
finally arrived at. At each stage of improvement or refinement the series 
of steps could properly be called a program method. In fact the method 
as listed in the programs in this manual is just a refinement stage 
chosen to be fairly readable in reasonably plain English. More or 

less detailed stages could just as well have been chosen. At each 
refinement the method must be checked for correctness, perhaps by 
feeding through sample values. 


Following this methodology means that we will arrive at a well- 
structured program which is comprehensible and easily modified. As 
we fill in more detail we get close to Т52068 Basic and it is good to 
start using Basic variable names. These should be chosen to be 
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meaningful, but not long-winded as they would then be a pain in the 
pinkies to type in. 


Our second shot at the method above may look like this: 


1. Setup the dial picture and starting values 
2. Repeat for the three dial numbers 

a) Computer chooses number 

b) Player tries to guess it 

c) Computer gives appropriate response 
3. Game ends 


Notice that sub-steps are introduced—step 2, 'Play the Game' now 
consists of repetition of three steps, (a), (b) and (c). The program 
designer now goes into further detail. For clarity we will keep the 
sub-step labels the same, e.g., the player's guess will always be 2(b). 


It is quite possible to refine a single step right to the level of Basic if 
desired, providing the steps are self contained or modular. This may not 
however be a good approach in one's first attempt at program design, 
as the refinement of one step may reveal a logic error in the design of 
others. We are therefore producing the following: 


1. Initialize screen and variables 
a) Draw dial and headings 
b) Set security units (su) to 10 
2. Repeat for section counter c from 1 to 3 
a) Choose random code number (n) 
b) Entry of player's guess 
(i) Enter dial position required (d) 
(ii) Check whether valid 
c) Response to guess 
(i) Move dial, with sound, to value d 
(ii) If guess (d) 2 code number (n), respond and go to 
step (d) 
(iii) Otherwise decrease security units (su) by 1 and 
respond 
d) Repeat to step (2) 
3. End of game 
a) If all three numbers found, congratulate and stop 
b) Otherwise sound alarm and stop 


As we start to use data names such as su, c and n it is best to start to 
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compile a list of names used, with their meanings. This is in fact how 
the variables section of the program documentation is produced. Such a 
list ensures that a data name is not used twice unintentionally and also 
that the designer can quickly refer back to it, rather than having to 
remember names and their meanings. 


To meet some of the '"'idiot-proofing'' aims, a validation step is included 
at step 2(b) (ii). The level of validation required depends upon your 
assessment of the level of idiocy of the potential players. For brevity in 
most of the programs in this manual we have assumed that if the player 
is asked for a number then one will be entered, albeit possibly too large 
or small or of the wrong sign. This philosophy applies in the final 
program method for Crack the Combination as shown in Chapter 3 and 
in the program listing. If however the program designer wishes to be 
more thorough and is prepared to type in extra code, a better system is 
as follows: for every input always use a string variable, and then convert 
it to a number if required. Here is a suitable method to check for 
unsigned integers. 


(i) ^ Enter value z$ 
(ii) ^ Remove any leading and trailing spaces of z$ 
(іі) For counter i from 1 to length of 2$ 
a) If character i of z$ is not a digit 0-9 then 
1) Set valid — 0 
2) Repeat to (iii) 
(iv) Set valid = 1 
(v) Exit 


A much more sophisticated routine is needed to check for positive or 
negative numbers : the reader may like to design one and then ensure 
it is right by trying oddities such as 12 34, —20. and 3.9.6—4. 


As previously stated the final “plain English'' version of the method for 
Crack the Combination is shown in Chapter 3. In writing down these 
methods it is helpful to use indentation as shown, for greater clarity. The 
line numbers shown in the method in Chapter 3 would not be present at 
this stage—these are added when the working program is ready, in 
order to provide easy cross-referencing. 


Translating into Basic 
While planning and refining the program method the designer is already 
thinking of how it will be done in Basic and is working on identifying 


sections which occur more than once with a view to making them 
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closed subroutines (using GO SUB). 


Once the final method (in English or perhaps pidgin-Basic) has been 
written down, we simply have to carry out a translation exercise, 
converting the steps into T52068 Basic instructions. This stage is often 
called coding the program i.e. putting the instructions into a 

code— Basic. 


This should not be a particularly creative task as the thinking has been 
done already. Do not be afraid to use sections from programs you have 
previously written in your new program—this can save а lot of time. 
Many program modules from this manual can be similarly borrowed. 


The addition of REM lines to mark sections of the program 
corresponding to the method steps is useful. Another hint for increasing 
readability is to use extra spaces to indent Basic lines within a loop or 
following an IF statement. Neither of these techniques are used in this 
book since the overriding aim is ease of entering programs especially for 
beginners, but compare the section of code below with its equivalent in 
Crack the Combination in Chapter 3. 


іс РЕМ 
Se FOR 
Ей LE 
62 REH 
ғә FOR 
ТЕ LE 
iisnisti-n 
74 МЕХ 
Yo LET 
72 REM 
ай INPUT 
number: Л, 
ac LET 
8 DOR ішу 
1:8Т 10, 





Getting it Right 


Helpful hint: when first coding the program add plenty of extra 
print statements to show what is happening. These may be 
removed when the program is working. 


In Combination, for example, print out the random code numbers, have 
a print statement to show whenever a new program section starts, print 
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the values of the BEEP tones, and so on. Such extra information serves 
to either confirm that a program is working or to show why it is not. It is 
not a vainly optimistic hope to suggest that your program will work the 
first time, providing you have designed it properly. Do people gaze in 
wonder and astonishment at architects whose buildings do not fall over 
when built? Of course not, and neither should you be amazed if our 
programs do not fall over. 


Certainly some adjustments may need to be made, particularly if the 
programmer is new to TS2068 Basic, and at this stage who isn't? 
However, using built-in error diagnostics and extra print statements, 
either in the program or as direct commands outside the program, 
problems should soon be resolved. 


However we are wise to remember that even this final stage of the 
stepwise refinement process needs to be checked thoroughly, even if 
the program seems to work. Choose and feed in a good variety of test 
values to the program to make sure that as many routes as possible are 
tried and tested and not found wanting. 


When you are happy with the finished product, you should gather 
together all the pieces of paper produced in the design process, correct 
any inconsistencies (e.g. slight modifications that you have made to the 
method at a later stage), cross reference the method to the program 
listing (as shown in this book), and file this information for further 
reference. In this way, writing up a program is not a tiresome drawn-out 
exercise, but simply a brief collating of information already produced. 
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CHAPTER THREE 
NUMBER GAMES 











3.1 CRACK THE COMBINATION 


DESCRIPTION 





One of the first games that budding programmers generally put their 
hands to is Guess the Number. Here the computer chooses a number at 
random and the player has to find it in ten attempts, aided by hints such 
as ‘TOO HIGH’ from the computer. ‘Crack the Combination’ is of the 
same ilk, but is a bit more sophisticated. 


An electronic combination lock to a safe has three code numbers 
between 1 and 50. The potential safebreaker has ten attempts to get all 
three numbers. The number chosen is keyed in and the dial turns to this 
number, emitting a tone, the pitch of which varies according to the 
closeness to the code number. As it gets closer to the number, the note 
rises, and as the number is passed, there is a buzz, and then the note 
falls again. If the player makes a mistake in entering the number then 
alarms are triggered. This also happens if security units run out (i.e. the 
ten attempts allowed). The alarm rings for quite some time! 


METHOD 
1. Initialize screen and variables 
a) Draw dial and headings (5-45) 
b) Set dial number exposed (x) to 50 (10) 
с) Set security units (su) to 10 (10) 
2. Repeat for section counter с from 1 to 3 (50) 
а) Choose random code п (60) 


(i) Setup corresponding array of BEEP tones (b) (70-75) 
b) Entry of player's guess 
(i) Enter dial position required (d) (80) 
(ii) If invalid then (90) 
A) Display message 
B) Set security units (su) to zero 
C) Go to step 3 
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c) Response to guess 


(i) Move dial, with sound, to value d (100-120) 
(ii) If guess (d) = code number (n) then (130) 
A) Sound and message confirmation (140-150) 
B) Go to step d (150) 
(iii) Otherwise 
A) Reduce security units (su) by 1 and display (160) 
B) If su = Ø then (170) 
() Display message 
(1) Go to step 3 
C) If su = 1 then display warning message (180) 
D) Go back to step 6 (190) 
d) Repeat to step (2) (200) 
3. End of game 
a) If units (su) = 0 then sound alarm (210) 
b) Otherwise display message of congratulations (220) 
c) Stop 


SCREEN LAYOUT 





- СЕНЕК THE SoHE ENR? Pon 





VARIABLES 


= line counter to initialize screen 

array b dimension 50 = tone values for ВЕЕР when 
dial moves 

х = dial number 
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SU — security units (i.e. attempts) left 

CX,Cy —x,y co-ordinates of center of dial circles 
г= radius counter for drawing circles of dial 
i,k= general purpose counters 

c= dial section counter (1-3) 

n=random combination code 

а= player's estimate 


PROGRAM LISTING 
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NOTES 


1. Step 2(b) of the program method, lines 70 and 75, sets up 
array b containing “ВЕЕР tones.” This illustrates an important principle 
in games programming, namely, do not waste time calculating when 
the player is waiting for a response—instead set up a table of values 
which can be looked up quickly. The values in array b are the numbers 
used in the BEEP instruction while the dial turns. There is a BEEP for 
each number that the dial is turned through, and these BEEP's must rise 
as the hidden code number is approached. There should be a low buzz 
when it is passed, and then BEEP's should fall as the dial is turned away 
from the number. Now it is quite feasible to calculate the size of BEEP's 
while the dial is being turned (line 110) and thus dispense with array b. 
However this would slow down the sound of the dial turning and 
therefore decrease the game's attractiveness. 


2. It is helpful to include a warning message such as at step 
2(c)(iii)C (line 180) when the player is getting close to losing. 


3.2 MONEY MATCH 


DESCRIPTION 


This program is based upon a popular casino game. The computer 
chooses twenty numbers between 0 and 80 at random and the player 
has to guess what eight of these will be. Thus we have another of the 
"guess the number'' family games. 
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The player starts with $20 and can gamble with part or all of it (in 
whole dollars). The payout is based upon the amount of the bet and 
how many numbers are right: 


four numbers means payout — bet 

five numbers means payout = 10 x bet 

six numbers means payout — 100 x bet 
seven numbers means payout — 1000 x bet 
eight numbers means payout — 10000 x bet 


The numbers 0 to 80 are shown on the screen in a pattern, and having 
specified the bet, the player enters eight ‘‘markers’’ or guesses as to 
what numbers the computer wiil choose. Next the computer chooses its 
twenty numbers in turn, each number 'bubbling' through the screen 
pattern. A match is highlighted and scored, and at the end the payout is 
shown. The game continues until the player runs out of money or 
chooses to stop. 


METHOD 
1. Initialize screen and variables 


a Setup screen positions of number Q to 80 in arrays | 
(line) and c (column) 


b) Set money m to 20 (300) 
2. Display screen pattern including money held (305-315) 
3. Set matches 2 to 0 (320) 
4. Enter bet b (330) 
5. Ifbisinvalid (a) Reenter (340) 
(b) Go to (5) 
6. Decrease money m by bet b and display m (350) 
7. Repeatfor counter i from 1 to 8 (360) 
a) Enter marker m(i) (370) 
b) If m(i) is invalid (i) Reenter (375) 
(ii) Go to (b) 
c) If m(i) is a duplicate (i) Reenter (380-400) 
(ii) Go to (c) 

d) Highlight marker m(i) on screen (410) 
e) Repeat to (7) (420) 
8. Repeat for counter n from 1 to 20 (430) 
a) User presses ENTER (440) 
b) Calculate random number r(n) (450) 
c) If r(n) already chosen then go to (b) (460-480) 

d) 'Bubble' r(n) through the screen pattern with 
sound (490-495) 
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e) Ifr(n) = any of the markers m(1) to m(8) then (500-510) 
(i) add 1 to matches z 
(ii) sound confirmation 


(iii) display matches z (520) 

f) Repeat to (8) (530) 

9. Calculate and display payout p (540-560) 
10. Calculate resulting money held m and display m (560) 
11. If no money left (a) display message (560) 

(b) stop 

12. Enter choice to continue or stop (570) 
a) If continue, go to (2) (580) 

b) Ifstop (i) display message (570) 

(ii) stop 


SCREEN LAYOUT 


ra 


1 
= 
8 
E 
E 
i 
EH 
Л 
- 
Л 
- 
4 
i 
I 
i 


“4 DUE Fe Car FOL e 





VARIABLES 
array |, dimension 81 = line positions of numbers 0-80 
array c, dimension 81 = column positions of numbers 0-80 
eg. number 16 displayed at line (17), column 1(17) 
ijj = general counters 
m = money held, in $ 
2 = nO. of matches between user's markers and computer's 
numbers 
b — user's bet 
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markers (or guesses) of user 


array m, dimension 8 — 


n 


s numbers 


counter showing sequence of computer' 
computer's random numbers 


array r, dimension 20 


") or stop (707) 


1 


payout in $ 


z$ — number to specify continue ( 


р= 


PROGRAM LISTING 
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43 
44 





48080 NEXT i 
480 FOR i 
So ТР 1 









NOTES 


1. After examining the numbers in DATA line 30 (and 
especially after keying them all in) the reader will see a pattern. It is in 
fact relatively straightforward to replace this massive block of DATA 
with several program loops to display the MONEY MATCH board. In 
this area there is no right or wrong way — it is up to the reader's 
preference. The author tends to err on the side of easier program 
entry, and in fact it is slightly shorter to choose the way the program 
appears above. 


2. The method used to ""bubble' a random number through 
the list merits attention. This appears at lines 490-495. The underline 
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character (__) is printed OVER a number to highlight it and then it is 
printed OVER again to remove the highlighting. This method is better 
than using a different color for highlighting as it is more difficult to 
return the number to its original color afterwards, and marked numbers 
tend to disappear. Note also in this section the need to differentiate 
between single digit and double digit numbers for underlining. 


3.3 RECOGNIZE THE ENEMY | 


DESCRIPTION 





The essence of this number game is again quite straightforward. The 
player's ability to quickly assess the number of a random collection of 
spots is being tested. Many educationalists believe that people can be 
taught to do this quite easily. Young children particularly seem to have 
abilities in this area. Once again the bones of the idea are considerably 
padded out to make it more fun. 


You are the captain of the TS2068 rocketship engaged upon its ninety 
nine year mission, boldly going where no one has gone before. 
Suddenly you find yourself being attacked by enemy ships. Subspace 
radar tracks them and displays them momentarily on the screen; you 
must estimate their number and fire the appropriate number of phasars. 
You also have a number of energy units which either rise or fall 
depending upon your success in estimating and firing. If your estimate 
is correct all the enemies are destroyed and your energy rises by fifty 
units; if you are within five of the correct number the ships not hit will 
flee and your units rise by ten. If however you are more than five out on 
your estimate you are in trouble! If you are too low the enemy ships not 
hit by a phasar will fire back; similarly if you are too high the excessive 
phasars will cancel out an equivalent number of other phasars, resulting 
in enemies left who will fire back. In both these cases, your energy units 
decrease by the number of ships firing at you. There are five waves of 
enemies and you may be forced to quit if your energy gets too low or if 
you make a foolish error in specifying the number of phasars required. 


METHOD 
1. Initialize screen and variables 
8) Draw screen format (10-30) 
b) Set energy units и to 50 and display (40) 
2. Repeat for go counter g from 1 to 5 (50) 
8) Clear view screen and message line (55) 
b) Wait Юг 1-5 seconds (random) (57) 
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C) Set no. of enemies r at random between 


20 and 99 (60) 
d) Display г enemies (SR 600) 
e) Display "ENEMIES SIGHTED” (70) 


f) Pause for 2 seconds 
g) Clear view screen and message line 


h) Enter no. of phasars e (80) 
i) Ife is silly (i) Display message and claxon sound 
(ii) Stop (90 and 300) 

j) Display no. of phasars to fire (95) 
k) Firing sound (100) 
I) Display actual number г (105) 
m) If phasars e=enemies г (110) 

(i) Display message 

(ii) Increase energy units u by 50 (SR 700) 

(1) Go to (г) 
n) Calculate difference d between e and r (120) 
o) Display d enemies (SR 600) 
p) If difference d « 6 (130) 


(i) Display message 
(ii) Wait five seconds 
(iii) Clear view screen 


(iv) Increase energy units n by 10 (SR 700) 
(v) Go to (r). 
q) Differenced > 6so (140) 


(i) Display message 
(ii) Sound of firing 
(iii) Decrease energy units u by appropriate 


amount (150 and SR 700) 
(iv) If units u < 10 (160) 
A) Display message and claxon sound (300) 
B) Stop 
r) Press ENTER (SR 800) 
s) Repeat to (2) (170) 
3. End section 
a) Enter number z$ (200) 
b) 1125-4217 go to (2) 
c) Stop (210) 


VARIABLES 


ij general purpose counters 
number of energy units 


go number (1-5) 


Hog og 


u 
9 
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r=number of enemies 

S — parameter to subroutine 600 

e = number of phasars 

d — difference between e and r and parameter to 
subroutine 700 

z$ — dummy variable for ENTER 

(1,с) = random line and column position used by 
subroutine 600 


SCREEN LAYOUT 











SUBROUTINES 


500 Displays one line of color 

510 Displays border of color 

520 Sets up (clears) viewer screen and message line 
600 Displays s enemies on the viewer screen at random 
positions, each position different 

700 Increases units u by d with display and sound 

800 ENTER entry 


PROGRAM LISTING 


fo cn es 
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528 PAPER i 
8: FOR 1-1 Ti 





2 i5 
XT i: PAPER F: I 
_RETURN 









За RETURN 
па FOR isu ТО 
PRENT HT 18,14; ық ;od : 
5:i1;" ": ВЕЕР à. 1,28: НЕХТ i: L 
ET и=и+4: RETURN 

зар INPUT "press ENTER’; LINE = 
$: RETURN 





NOTES 


1. The SCREENS function is hardly mentioned in the Т 52068 
manual, but it can be useful, as shown at line 610. Subroutine 600 is 
displaying a number of enemies on the screen, in random fashion. 
However one enemy ship must not be displayed on top of another, and 
ships must not appear over the edge of the televiewer. Thus we only 
print a ship where there is a blank on the screen. Thus to test whether a 
particular position on the screen (e.g. line 1, column c) is blank we 
simply need 


IF SCREENS (l,c) 2". 7 THEN --- 


2. Subroutine 700 demonstrates a nice way of updating the 
display of energy units to their new value. Instead of just printing the 
new value on top of the old one, numbers are cycled through with a 
BEEP for each number, until the new value is reached. The slightly 
complicated looking STEP value is needed because the counting may 
be up (1) or down (-1) 
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4.1 AWFUL ANAGRAMS 


DESCRIPTION 








Many word games involve guessing what a word is. Awful Anagrams 
and Pace the Plank are both similar in method, but the former reveals 
the letters in the word as an anagram while the latter gives no such 
clues. It is a little tame to have a straightforward game shown on the 
TS2068 screen as it would be played on paper, so a little extra action is 
added. 


You are the intrepid adventurer trapped by the wicked warlock in the 
cavern of riddles. In the cavern with you is a cauldron being heated over 
a fire. The only way out is through an enchanted door which opens by a 
magic word. This is the word shown on the screen in a jumbled form. 
You must guess the word letter by letter until you have it all and the 
door opens. However every time you make a mistake the cauldron's 
temperature rises, as shown by the thermometer. If it reaches the 
boiling point (200°) it will explode and take you, the enchanted door 
and the cavern with it. 


The user may replace the words at DATA line 30 with words of their 
own choice, providing the number of words (n) is shown correctly at 
line 10. 


METHOD 
1. Initialize screen and variables 
a) Set n to no. of words available (10) 
b) Choose words w$ at random, based on limit of n (20-30) 
с) Set! to length of w$ (40) 


d) Set p$ and x$ to same size as w$ 

e) Set p$ to all dashes 

f) Set letters-correct counter c to 0 (50) 
g) Set temperature t to 100 
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h) Shuffle word w$ into x$ 
i) Display screen format 
Clear message line 
Enter letter I$ and position p 
If p is invalid 
a) Message 
b) Reenter p 
c) Go to (4) 
5. If letter |$ = letter p of w$ 
а) add 1 to letters - correct c 
b) put I$ into position p of p$, part guessed so far 
c) display p$ 
d) If letters - correctc = no. of letters | 
(i) Display message of success 
(ii) go to (10) 
e) Goto (2) 
6. Add 10 to temperature and display temperature rise 
7. |f temperature t — 200 
a) Display message of failure 
b) Sound of explosion and display 
c) Go to (10) 
8. If temperaturet — 190 
a) Display warning message 
b) Wait for five seconds 
. Goto(2) 
10. Enter number z$ 
a) If z$- "1", rerun 
b) Stop 


PWN 


VARIABLES 
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no. of words in DATA statement 

general purpose counter 

= word to be guessed 

length of word w$ 

p$ = word correctly guessed so far, initially all dashes 
= anagram of w$ 

number of letters guessed correctly 


(50-60) 
(70-115) 
(120) 
(130) 
(140) 


(150) 
(160) 


(170) 


(180) 


(190) 


(200) 


(210) 
(220) 


random number used to shuffle x$ and also radius counter 


x 

© = 

t = temperature of cauldron 
r = 

2 


$ = dummy character used in shuffling x$ 
1$ = letter entered by player 

p = position of |— as entered by player 

z$ = “1” to rerun program, “0” to stop 
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NOTES 


1. The technique used to form an anagram of word w$ (lines 
50 and 60) is very similar to the technique used in Chapter 8 to 
shuffle a pack of cards. It consists of going through the word letter by 
letter and swapping each letter with a letter in another (random) 
position. There are other ways of doing this shuffle, but this is the most 
simple and efficient. 


2. Make sure the computer is in lower case when you run this 
program. 
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4.2 PACE THE PLANK 


DESCRIPTION 





This is a Hangman variant in which the player has to guess a word, 
letter by letter. For every wrong letter chosen the player comes one step 
closer to death—in this case shown by a figure getting closer to the end 
of a plank suspended over water. 


The word to be guessed is initially shown as a series of dashes. As a 
letter is guessed, it is shown in its correct position(s) in the word. If a 
wrong letter is guessed the letter is displayed under the wrong letters 
heading and the figure moves along the plank. After nine wrong 
attempts, the figure falls from the end of the plank. The user may 
replace the words at DATA line 100 with words of their own choice. 
(Be sure to use lower case when using this program.) 


This is a good example of a simple concept which makes full use of 
TS2068 graphics and sound. 


METHOD 
1. Initialize screen and variables 
a) Set up graphic symbols A, B, C for figure (10-50) 
b) Set no. of words n (80) 
c) Choose word w$ at random (90-100) 
d) Set | to length of word w$ (110) 
e) Set display pattern p$ to dashes, length | (110) 
f) Set wrong letters string e$ to null (110) 
9) Set no. of correct letters c to zero (120) 
h) Set position of man to 19 (120) 
i) Draw screen format and headings (130-180) 
2. Clear message line (190) 
3. Letter entry (210) 
a) Enter user's chosen letter I$ 
b) If letter I$ has already been chosen then (220-260) 
(i) Reenter I$ 
(ii) Go to (b) 
4. Test letter 
a) For counter К from | to length of w$ (270) 
(i) If letter I$ = letter К of w$ then 
A) Add 1 to no. of correct letters c (280) 


В) Display letter I$ at position k of p$ onscreen (280) 
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C) If cz I then 
(1) Display CONGRATULATIONS (290) 
(1) Return to (1) or stop (400-410) 
(ii) Repeat to 4(a) (300) 
b) If letter I$ is not in word w$ then (305) 
(i) Add letter I$ to wrong letters string e$ and display (310) 
(ii) Add 1 to man's position m (310) 
(iii) Display man at column position m (310) 
(iv) If m = 28 then (A) Display man falling into sea (320) 
(B) Return to (1) at STOP (400) 


(v) If m=27 then display warning message 
c) Go to (2) 


SCREEN LAYOUT 


СКОНЕ i 


asel 





VARIABLES 
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= general purpose counters 

= holds A,B or C when setting up user-defined graphics 
n = number of words available to choose from 

w$ = word to be guessed 

| = length of w$ 

p$ = word as displayed on the screen eg. --Е-Е5- 

e$ =string of wrong letters i.e. letters specified by player which 
are not in word w$ 


,d 
a$ 


с = number of correct letters chosen 


Chapter Four 


m = column position at which man is displayed on line 0 


I$ — letter chosen by player 


ok = either 1, meaning I$ has not been chosen before, or 


0, meaning I$ has been chosen before 
inword = either 1, meaning I$ is in word w$, ог 
0, meaning I$ is not in word w$ 


k = position number of letter in w$ currently being compared 


with I$ 
z$ = “1 to repeat, “0” to stop. 


PROGRAM LISTING 
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(Note: The characters A, B and C in lines 180, 310 and 320 must be 
entered in GRAPHICS mode (G cursor).) 


NOTES 


Two logical values are used in the program, namely ok and 
inword. Logical values, also known as flags or switches, can either be 
true or false, represented by 1 or @ in the TS2068 (see Chapter 14 of 
the TS2068 manual) and can save time and increase program clarity if 
used in the right places. 


4.3 SHRINK 


DESCRIPTION 
In the old days when computer games were played on teletypes 
connected to large mainframe computers, the Eliza program was 
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This was a very sophisticated program which simulated a 


psychiatrist interviewing a client. Shrink is a scaled-down version 
whereby the player keys in any thoughts which occur to him and the 
TS2068 gives a suitably analytical reply. It is a very useful 
demonstration of text analysis and each of the player's entries is 
processed in the following way. First keywords or phrases are sought 
e.g. "do уои”, "I want", “КІ”. Based upon the keyword found, a reply 
is chosen. However the reply may use part of the user's entry, in which 
case a certain amount of translation must be done, e.g. “Iam” is 
changed to ‘‘you аге”, “ту” to ‘‘your’’ and so on. Thus if the user 
enters “І want to kill you’’, the program may reply ‘‘Why do you want 


to kill те”. 


In playing the game it is best to use short sentences with no 
punctuation. 48K of memory is needed. 


METHOD 


1. 


Initialize variables and screen 
8) Set no. of keyboards kn and no. of substitution pairs 

sn (10) 
b) Set reply line nos. into r (20-26) 
C) Set colors (30) 
Introduction 
а) Display welcome message (40) 
b) Enter user's name n$ (50) 
с) If first letter of n$ is not uppercase, make it 

uppercase (52-55) 
d) Invite discussion (60 ) 
Repeat for questions а from 1 to 20: (70) 
a) Enter user's answer a$ (80) 
b) Ifa$ = "stop" then stop (81) 
c) Display answer a$ (85) 
d) If last answer then (i) Display goodbye message (86/370) 

(ii) Stop (380) 


e) If answer is less than two chars. long в 
(i) set reply line number К to 


'general' reply (87) 
(ii) go to (1) 
f) Convert upper case to lower case and omit apostrophes 
in answer a$ (90-100) 
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9) If answer a$ — previous answer b$ 


(i) set reply line number К to ‘repeat’ reply (110) 
(ii) go to (I) 
h) Store answer a$ as b$ (120) 
i) Рита full stop at end of answer а$ (130) 
j) Repeat for all the keywords (counter i from 1 to 
Кп): — (140) 
(i) If answer a$ contains keyword k$ (the ith 
keyword) (170 -190) 


A) Set reply line number k to r(i) 
B) Set keyword position kp to position of 
end of k$ in answer a$ 


C) Go to (1) 
(ii) Repeat to (j) (200) 
k) Set reply line number k to 'general' reply (210) 
1) Get reply r$ based upon reply line number К (300) 
(choose 1 of the 4 available, at random) 
m) If last letter of reply r$ is * then (320) 
(i) Remove last two letters of reply r$ (58400) 


(ii) If keyword was at end of answer, до їо (n) (400) 
(iii) Set m$ to be the part of the answer a$ 
following the keyword (410) 
(iv) Repeat for all substitution pairs (420) 
A) Get word s$ and its replacement t$ (430) 
B) If s$ is in n$, then replace 
it by t$ (440-470) 
C) Repeat to (iv) (480) 
(v) Put converted end m$ onto end of reply r$ (490) 
n) If full stop is still present at end of reply, remove it 
о) Display reply 
p) Display name at end of reply, on a random basis 
q) Repeat to (3) 


VARIABLES 


kn = number of keywords 

sn = number of substitution pairs 

array г size kn = holds line nos. of DATA statements for each 
reply i.e. r(i) holds the line no. of the reply to a user's entry in 
which keyword number i is found 


b$ = the previous answer 
n$ — name of player 
а = number of question/reply (1-20) 


a$ — player's answer 
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k — line number of DATA statement holding appropriate reply 
ij = general purpose counters 

ch — a character code number in the answer a$ 

| = length of answer а$ 

k$ — a keyword 

kl = length of keyword К$ 

kp — position in a$ of end of keyword k$ 

r$ — reply 

rl = length of reply 

m$ = the part of the answer a$ after the keyword 
s$,t$ — a substitution pair i.e. t$ is substituted for s$ 


SCREEN LAYOUT 
This simply consists of text displayed on the screen e.g. 








DATA 


It is vital to understand how the data is arranged and used. Line 1000 
contains the key words and phrases used to decide how to reply. 
The sequence that these are listed in is important. The reply to an 
answer containing “ао you” is at line 3000, for “dont you” again it is 
3000, for “сап уои” the reply is at line 3010 and so on. This list of 
reply line numbers is given in the DATA statements at lines 25 and 26. 
For example the fifth number is 3020. This means that for the fifth key 
word (“ао 17), the reply is at line 3020. 
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Line 2000 contains pairs of substitution words. If a reply is going to 
incorporate part of the players answer e.g. 

PLAYER: | want to kill you 

TS2068: Why do you want to kill me? 


then "you" has to be translated to “те”, Thus “I am” is changed to 
"you are" and so on. However to avoid things getting translated 
twice e.g. 

you — me — you 
a technical trick is used when keying in the program. At the points 
indicated by an inverse space in line 2000 in the listing below, the 
user must put the TS2068 in E mode and then key 8. Nothing 
happens on the screen but a control character is placed in front of 
the substituted word so that it will not be retranslated. For those 
interested, it happens to be the control character for 'normal brightness. 


Lines 3000 onwards contain the replies. There are four replies on 
each line, and one is chosen at random, based upon what keyword is 
found in the user's entry. Some replies have an asterisk at the end. 
This indicates that part of the user's entry will be added at the end of 
the reply. Line 5000 has replies suited to repetitious answers and 5400 
is used when no keyword is found. The game may be improved by 
adding more data according to the guidelines explained here. 


PROGRAM LISTING 
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Note: In line 2000, at the points marked with inverse spaces, enter 
E mode and press 8, as described in the DATA section above. 


NOTES 


Finding and replacing words or phrases is fundamental to this 
program, so the techniques for carrying out these operations are now 
more fully described. 


Consider the problem of finding the word DREAM in a sentence s$. 
DREAM has five letters so every five-letter sequence of the sentence 
must be examined. If we assume the sentence has 20 letters we 
therefore must examine the sequences: 


s$(1 TO 5), s$(2 TO 6), s$(3 TO 7), ..., s$(16 TO 20) or more 
generally s$(i TO 1+4) with і = 1,2,3, ..., 16 


For a sentence s$ of length sl this generalizes to looking at 
$$ (i TO i-- 4) with i2 1,2,3,..., 1—4 


In a completely general case where we are searching for a word of 
length wl we examine 

s$(i TO i+ wl— 1) with і = 1,2,3, ..., sl-wl- 1 
To check this, consider the last value of i and see that it means that 
the last sequence examined is s$(s — wl + 1,sl) 


Thus a construction such as that at lines 170-190 may be found. 


Substituting for words or phrases is a bit more complicated, mainly 
because the new word may not be the same length as the old word. 
The general principle is: 


1. Find the word to be replaced, say between sentence 
positions p1 and p2 inclusive 


2. Change the sentence so that it becomes 
Characters 1 to (p1-1) + new word + characters (р2 + 1) to end. 


It is not possible to use a FOR-NEXT loop here because of problems in 
defining the limits of the FOR statement. The length of the sentence 
changes in the middle of the loop. 


Lines 440-470 above show how a word $$ is replaced by t$ in the 
sentence m$. 
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CHAPTER FIVE 
BOARD GAMES 








| 51 COPYCAT 





DESCRIPTION 


This game is based on the popular electronic toy, found in a variety of 
forms, which produces random collections of colors and sounds which 
the player then has to repeat. 


Use is made of the TS2068 color and sound facilities, but as it is 
difficult to enter a color or sound on the keyboard, the normal color 
numbers are used. Thus for each color, a block of color appears on the 
screen with the color number (e.g. 2 for red, 3 for magenta) on the top 
right. There is also a corresponding tone. The number of colors to be 
remembered and repeated rises progressively from 1 to 30. 


METHOD 
1. Set up screen and variables 
а) Set screen colors (15) 
b) Generate a random sequence of color numbers (0-7) in 
array г size 30 (20) 
2. For sequence length n from 1 to 30 (30) 
a) Press ENTER (40) 
b) Produce color and sound sequence, 
length n (50-80 and SR300) 
C) For counter c from 1 to sequence length n (90) 
(i) Enter color at position c (a(c)) | (100) 
(1) If a(c) is invalid (А) Reenter 
(B) Go to (ii) 
(iii) Produce color a(c) (120 and SR 300) 
(iv) If a(c) incorrect i.e. not=r(c) then (130) 


(i) Sound error buzz 
(ii) Go to 3(b) 
(v) Repeat to (c) (149) 
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d) Enter option z$ (150) 
(i) Ifz$ = “5” then stop 
(1) Otherwise repeat to (2) (160) 
3. Епа 
а) CONGRATULATIONS message (170) 
b) Reveal sequence of colors in array г (187-210) 


SCREEN LAYOUT 


u^wve done 
iontinue 





VARIABLES 


array r — holds random color numbers, size 30 

array 1 — holds sequence of color number entered by player 
i = general purpose counter 

n — length of color sequence currently being shown 

cn = color number supplied to subroutine 300 

с = position of color in array г currently being considered 

2$ = dummy value 


SUBROUTINE 


58300 Displays a block of color, number cn, with cn at top right. 
Also gives an appropriate BEEP, depending on cn. 
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NOTES 


Readers may notice that the color sequence entered by the player need 
not be stored in an array (a above) with the program as it stands. If 
however the program is required to be extended, a stored sequence 
probably will be required. For example one may wish to print out the 
player's entries at the end of the program to compare them with the 
actual code. Thus we have a case of a certain amount of redundancy 
built in to allow for future modifications. 
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5.2 WHAT'S THE CODE? 


DESCRIPTION 





This is a sophisticated version of the famous board game with colored 
pegs in which a color code has to be found. The computer chooses the 
code, with between three and eight color positions, as specified by the 
player. Each of the player's attempts is shown and marked, in the 
normal way, with black or white pegs. A black peg corresponds to a 
color chosen correctly in the right position. A white peg indicates a color 
present but in the wrong position. To make colors easier to identify the 
color number is also shown in the colored square. The player has 
thirteen attempts to find the hidden code, after which it is revealed. The 
player can also specify at the beginning of the program whether or not 
certain colors will be repeated in the code. 


METHOD 
1. Initialize screen and variables 
a) Set screen colors (19) 
b) Enter no. of code positions p (20) 
с) If p invalid (i) Message and reenter (30) 
(ii) Go to (c) 
d) Enter whether or not repeated colors required (40-50) 
e) Draw screen format (60-80) 
2. Generate random code. For counter i from 1 to 
position p (100) 
a) Set code position c(i) to random number (0-7) (110) 
b) If repeats allowed or i = 1 go to (d) (110) 
c) Otherwise if c(i) — any previous element of code 
array c then go to (a) (120-130) 
d) Repeat to (2) (140) 
3. For go number g from 1 to 13 (200) 
а) For counter i from 1 to position p (210) 
(i) Enter players choice of color no. i into a(i) (220) 
(ii) If a(i) invalid then (A) Message and reenter (225) 
(B) Go to (ii) 
(iii) Display color and number a(i) (230) 
(iv) Repeat to (a) (240) 
b) Enter confirmation z$ (250) 
(i) If z$ '' '' then A) rub-out chosen code (260) 
B) Go to (a) 
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c) Marking 
(i) Set black (b) and white (w) counters to zero (300) 
(ii) Copy code (array c) into array d (300) 
(iii) (BLACK MARKS) For counter i from 1 to 
positions p (310) 
A) If user's choice ali) = code d(i) (320) 
(1) add 1 to b 
(1) set a(i) and d(i) to 9 
B) Repeat to (iii) (330) 
(iv) (WHITE MARKS) For counter i from 1 to 
positions p (340 ) 
A) If user's choice a(i) 2 9 then go to (c) (350) 
B) For counter j from 1 to positions p (360) 
(I) If user's choice ali) = code d(j) (370) 
then add 1 to w and set ali) and d(j) to 9 
(11) repeat to (B) (380) 
C) Repeat to (iv) (390) 
(v) If black points b — no. of positions p then (395) 
A) CONGRATULATIONS message 
B) Go to (5) 
(vi) Display b black marks and w white marks 
starting at line | = 0 (40 0-430) 
d) Repeat to (3) (450) 
4. Display OUT OF GUESSES message (460) 
5. Revealcode (500) 
6. Return to (1) or stop (510 -520) 
VARIABLES 


р = no. of code positions 

array a — user's guess at code 

array c — random code 

array d — copy of c 

z, z$ = dummy input variable 

rep — 0 for repeats not allowed, or — 1 repeats allowed 
ine counter 


= ن .س 


= column counter 
i,j = general purpose counters 
g = go number 
w = white marks 
b = black marks 
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SCREEN LAYOUT 
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NOTES 


In this listing the marking strategy is important. This is shown at steps 
с(її) and (ім) or program lines 310 to 390. The black marks must be 
worked out first and any matching pegs must be ignored when moving 
on to white marking. Similarly a peg must not be allowed to count for 


53 


Creative Games for the Timex Sinclair 2068 


more than one white mark. To ensure this, a color is set to 9 when it 
has contributed to either a black or white point in the marking. 


5.3 SOLITAIRE 


DESCRIPTION 


This is the familiar board game using 33 peg positions with the middle 
peg removed. The objective is to end up with one peg left (preferably in 
the middle position) by means of jumping one peg over another, the 
jumped peg being removed. This TS2068 version allows legal 
horizontal, vertical and diagonal jumps. The player specifies positions to 
move from and to by entering a pair of row and column positions. To 
allow for mistakes or for stalemate positions two extra facilities are 
available: if the player enters a zero for the row or column position of the 
“Пот” position, the game ends; if zero is entered for the “40” position 
the current “from” entry is cancelled and the complete move may be 
reentered. 


METHOD 
1. Initialize screen and variables 
8) Screen colors and clear screen (10) 
b) Set up graphic for peg (p) (20-30) 
C) Set up array b to hold board (40-50) 
d) Print titles (60-70) 
e) Display board with middle peg removed (80-120) 
f) Set no. of pegs left (np) to 32 (130) 
2. Player's go 
a) Clear message lines (150) 
b) Enter move: (160) 
(i) Enter position from which to move (fr,fc) (170) 
(ii) If value = 0 then (175) 
A) STOPPED message, including pegs left (np) 
B) Go to 3 
(iii) If fr or fc invalid then (180) 


A) Message and reenter 
B) Go to 2(0)(1) 


(iv) Display 'from' position (fr,fc) (190) 
(v) Enter position to which to move (tr, tc) (200) 
(vi) If value = 0 then go to2 (210) 
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(vii) If fr or fc invalid then (215) 
A) Message and reenter 
B) Go to 2(b)(vii) 
(viii) Calculate column increment (ic) and row 
increment (ir) (220) 
(ix) Calculate signs of increments (sc and sr) (220) 
(х) If move invalid (ic, іг not equal to 2 or 0) then(230-250) 
(A) Message (NO SUCH JUMP) and reenter 
(B) Go to 2(b)(vi) 
(xi) Calculate position of jumped peg (jr, jc) using 





sr and sc 260) 
(xii) If no peg at this position then 270) 
(А) Message (NO SUCH JUMP) and reenter 
(B) Go to 2(b)(vi) 
C) Display ‘to’ position (tr, tc) 280) 
d) Effect move in array b (290) 
€) Display move on board with sound (300) 
f) Decrement pegs left (np) by 1 310) 
9) If only one peg left then (310) 
(i) Congratulatory message and sound 
(ii) Go to 3 
h) Go back to 2 (320) 
3. End 
a) Rerun or stop (330-340) 
VARIABLES 


— general purpose counters 
— pattern for peg graphic; also parameter for FN a 
pst b = holds board (7 x 7) 
Value 1 denotes peg, value —1 denotes hole, and value 
0 denotes invalid position 
пр = number of pegs left on board 
y — parameter for FN c 
fr, fc — position to move from 
tr, tc — position to move to 
i jc = jumped peg position 
— difference between tr and fr (row increment) 
— difference between tc and fc (column increment) 
sr = signum (SGN) of ir (ie. —1 if negative, 1 if positive, 0 10) 
— signum (SGN) of ic 
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SCREEN LAYOUT 


Li 
ааавас 
#80808 
20802: 


i 
2 
3 
4 
= 
= 
в 
? 


Hove 





FUNCTIONS 


FN a = true if parameter x is non-integer or outside the range 
1-7, i.e. an invalid row or column entry 

FN с = gives character code 159 (peg graphic) if parameter y 
is 1, and code 79 (hole) if y is — 1. Used to display board 
using board array b. 


PROGRAM LISTING 
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NOTES 


1.. Much of the program is concerned with checking that the 
user's entry of a move is valid. Apart from checking whether there is 
a piece to be moved and a hole to be moved into, this validation 
involves calculating whether it is a correct two-place move in a 
vertical, horizontal or diagonal direction, and also whether there is a 
relevant peg to be jumped over in this direction. A valid move can be 
considered by looking at the differences between the 'to' and 'from' 
positions entered, in terms of the row difference (ir) and the column 
difference (ic). If the unsigned values of these are either 0 or 2, with 
at least one being non-zero, then it looks valid. However, the ‘jumped’ 
position must finally be checked to find whether it contains a peg. This 
is done by looking at the signs of the differences ir and ie, as shown in 
lines 220, 260 and 270. 


2. The peg graphic character is displayed, not by an explicit 
PRINT “Р”, but by referring to the character code of graphic P, i.e. 
159. This method facilitates the use of function (FN c above) which can 
print either a peg or a hole as appropriate. 
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CHAPTER SIX 
SIMULATION GAMES 














6.1 SINK THE SHIP 








DESCRIPTION 


This short game is designed to show the principles of an interactive 
game in which the player has to react quickly and accurately. It 
resembles fairground games in which you try to hit a moving object 
by firing an air rifle. A ship moves left to right across the screen 
against a backdrop of the numbers 1 to 9. The player has to press the 
appropriate number when the ship is exactly under it to score a hit 
but it is not possible to win by just keeping a finger on a number key 
and waiting for the ship to pass by! 


The speed of the ship's motion is governed by line 5. If a smaller 
number than 15 is entered, the ship moves more quickly, while a 
larger number makes the ship go more slowly. 


METHOD 

1. Initialize screen and variables 
a) Set wait period to 15 (5) 
b) Set up user-defined graphic for ship (10-40) 
c) Set hits h to 0 (50) 
d) Set up screen colors (50 and 70) 
е) Display screen format and titles (60 and 80) 

2. For go number g from 1 to 10 (100) 
a) Set position p of ship to 1 (110) 
b) Clear ship and message lines (110) 


c) Rub-out ship's previous position and display itatp (1 20) 
d) If keys 1-9 pressed then 
(i) Set sp to position of shot (i.e. position of number 


on screen) 

(ii) Display shot at this position 

(iii) If shot position sp = ship position p then (150) 
A) Message and sound confirmation (160) 
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B) Add 1 to hits h and display h (160) 

C) Go to (i) (160) 

е) If key still pressed go to (е) (180) 

f) Count up to wait number (185) 

9) Add 1 to ship position p (190) 

h) If ship position p« 31 then go to 2(c) (190) 

i) Press ENTER (200) 

j) Repeat to (2) (210) 

3. Display number of hits and stop (220-230) 


SCREEN LAYOUT 








VARIABLES 


wait — delay governing speed of ship's motion 

с = counter used in setting up ship graphic symbol 

X — bit pattern used in setting up ship graphic symbol 
h = number of hits scored 

i — general purpose counter 

g — go number 

p — position of ship - a column number on line 3 

n$ — holds value of key pressed 

— shot position - a column number on line 3 

= dummy variable 


PROGRAM LISTING 
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(Note: The S at line 120 must be entered in graphics mode (G 
cursor).) 


NOTES 


At first line 180 may appear unnecessary, but it is needed to prevent 
cheating. Without this line the player could keep a key down and keep 
shooting, so that the ship was bound to be hit when it passed the 
number. 








6.2 HEADQUARTERS 





DESCRIPTION 


Headquarters is a sophisticated development of the concept in Sink the 
Ship. The player is in charge of a missile launcher which he moves left 
(key 5) or right (key 8) and can fire (key 7). The launcher has to protect 
the player's headquarters bunker which is being attacked by enemy 
bombers. These bombers appear from the left of the screen and drop 
their darts of destruction with (almost) unerring accuracy. Ten bombers 
can appear, and if the headquarters suffers six hits it is destroyed. 
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METHOD 
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Tg 


Initialize screen and variables 

a) Set up positions for plane, ground and HQ 

b) Set bomb as not dropped and missile as not fired 

c) Set НО building tọ undamaged (h$) 

d) Set planes hit (p) to 0 and HQ hits(h) to 0 

e) Set up user graphic for plane 

f) Draw screen format 

For raid number g from 1 to 10 

a) Display g 

b) Clear ground lines and plane line 

с) Set initial plane (pc) and launcher (Ic) column 
positions 

d) Add 1 to plane position (pc) 

e) If plane at RH side of screen go to (m) 

f) (DROP A BOMB?) If bomb not dropped then 


(10) 
(10) 
(10) 
(10) 
(20-30) 
(40-60) 
(100) 
(105) 
(110) 


(120) 
(130) 


(140) 


(i) If plane at correct position or 396 chance then 


A) Drop bomb 


B) Set bomb line (bl) and column (bc) positions 


9) Display plane 
h) Display launcher 
i) If bomb dropped then 
(i) Rub-out old bomb position and set up new 
bomb position 
(1) If bomb hits HQ 


(145) 
(145) 
(150) 


(160) 
(170) 


A) Display НО (1$) flashing with sound of explosion 


B) Add 1 to HO hits (h) 
C) Remove part of HO and redisplay 
D) Set bomb as not dropped 
E) If hits h = 6 then 
(1) Message of defeat 
(1) Go to 4 


(180) 
(190) 
(210) 


(іі) If bomb hits ground then display explosion with 


sound 


j) If missile fired 

(i) Rub-out old missile and set up new missile 
position 

(ii) If missile below plane then go to (k) 

(iii) М missile missed plane then 
A) Display and sound explosion 
B) Set missile as not fired 
C) Go to (k) 


(220-230) 
(250) 


(260) 
(260) 


(280) 
(280) 
(280) 
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(iv) (PLANE HIT) Display and sound hit on plane, 
and message 
(v) Go to (m) 
k) Test key pressed 
(i) If no key go to 2(d) 
(ii) If key = 5 then move launcher left (if possible) 
(iii) If key = 8 then move launcher right (if possible) 
(iv) If key = 7 then 
A) If missile not fired then 
(1) fire missile 
(II) set missile position 
1) Go back to (d) 
m) Press ENTER 
n) Rub-out old plane and launcher positions 
0) If missile fired then rub-out missile and set to 
not fired 
p) If bomb dropped then rub-out bomb (if unexploded) 
and set to not dropped 
q) Repeat to (2) 
3. (НО OK) Message of congratulations 
4. Rerun to 1 or stop. 


SCREEN FORMAT 








VARIABLES 


pl,pc = plane line and column position 
һас = НО column positions 
gl = ground line position 


(290 ) 


(300) 
(300) 
(310) 
(320) 
(330) 


(340) 
(350) 
(355) 


(356) 
(357) 
(360) 


(380) 
(400) 
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bl,bc = bomb line and column position 

ml,mc = missile line and column position 

dropped = bomb dropped (-1) or not dropped (= 0) 

fired = missile fired (= 1) or not fired ( = 0) 

h 2 number of hits on HQ 

р = number of planes hit 
= general purpose counter 

x = bit pattern used in setting up plane graphic 
h$ — string used to display HQ at various stages of destruction 
n$ — value of key pressed 

| = line number used by subroutine 650 


SUBROUTINES 
SR600 Displays HO 


SR650 Clear line | 
SR700 Sound explosion 


PROGRAM LISTING 


18 LET pizza: 1 s i 
с=28: = ігоррга- LE 








GO TO зой 

140 IF Wo T  drapp 
@ OR RND+@.3° TH 
: L 







; LET bLap Loa: 
145 PRINT aT 


pr Ж? 
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nmm 


35 7 
hangar = pna ni 







T- 









: зав 
Е mc-pc THE 
RINT AT mi 
^» To54- 
T Fire 
RINT 
3 





17]48 CH 748 C2 С 





EE I3 


т! 









m e D 
ur 


сл 

~J 
"E 
E] 
а. 


r Il 
Onat E GE и 


358 NEXT + 
зай PRINT AT = ‚5; "Үү 
s survived. "°" 914 


шеге shot down” 
488 INPUT “Key 


bs 


ta repeat әз 
а stop"; LINE 3$: IF rz$-"1" ТНЕН 
RUH 


418 TOP 

S88 PRINT BR 
Е 1; АТ gi-a,i 
gi-l.hac-i;h 
55 PRINT p 


TURK 
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уда FOR i 


TO 18: BEEP .1,-15: 
ВЕЕР .1, {EXT 


i: RETURH 


(Note: The P at line 145 must be entered in graphics mode (G 
cursor).) 


NOTES 


1. Movement. The plane moves one column position at a 
time; the launcher moves two column positions at a time; the missile 
moves up three lines at a time; and the bomb moves diagonally one 
column and two lines at a time. 


2. Hitting the HO. The program tests whether the bomb hits 
the HO in a novel way. The HO is always displayed BRIGHT ly, and 
this is the only set of positions on the screen with this BRIGHT 
attribute. Therefore if the bomb is at a position which is BRIGHT then 
it must have hit the HO. Using the ATTR function we find that any 
BRIGHT position will give an ATTR value greater than 64, whereas 
any non-BRIGHT position will have an ATTR value less than 64. See 
line 170 in the program listing. 


6.3 DEAD DUCKS 


DESCRIPTION 


The player has a double-barrelled shotgun and is situated 

at the bottom left of the screen. A duck is shown 

in the right hand half of the screen and the object of the 

game is to fire up into the air at a specified angle to hit the duck 
(avoiding the moon also shown). Angles may be between 45 and 85 
degrees inclusive. Scores are shown on the screen. 


METHOD 


1. Initialize variables 
a) Set up moon graphic symbols (A,B,C) 


and duck graphic symbols (DE,EG.H,I,J) (10-80) 

b) Set scores to zero. (90) 

2. Forgo number g from 1 to 5 (100) 
a) Clear and redraw screen with duck and moon at 

random positions (d,m) 110-170) 

b) For barrel number b from 1 to 2 (180) 

(i) Display barrel number b (190) 
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(ii) Enter angle of fire а 
(iii) If angle a is invalid then 
A) Message and reenter 
B) Go to (iii) 
(iv) Display angle a 
(v) Plot path of bullet. For each bullet 
position (x, y): 
A) Plot bullet and sound 
B) If bullet hits moon then 


Chapter Six 
(190) 
(200) 
(210) 


(220-230) 
(230-235) 


(I) Add 1 to moon hits (hm) and display (260) 


(1) Drop moon out of sky with sound 
(Ш) Go to Il (cJ below 
C) If bullet hits duck 
(I) If a glance hit then (aJ display 
OUCH 
(b) sound 
(c) go to (vii) 
(1) (DIRECT HIT) (а/ Display DEAD 
(b) Funeral sound 
(с) Increment and 
display shots 
(d) Press 


(270) 
(275) 


(280-290) 
(290) 


(300) 
(300) 


(310) 


ENTER (310 and SR500) 


(e) Go to (c) 


D) Repeat to (v) (242) 
(vi) Display MISS (245) 
(vii) Increment and display shots s (295) 
(viii) Repeat to 2(b) (297) 
c) Repeat to 2 (320) 
3. End message with score (340) 
4. Stop (350) 
VARIABLES 
c,d,i = general purpose counters 
a$ = user defined graphic (A— -J) 
X — binary pattern for user graphic / x-axis position of bullet 
hd = number of ducks hit 
hm = number of moons hit 
s — number of shots 
9 = go number (1-5) 
d — column position of start of duck 
m = column position of moon 
b — barrel number (1-2) 
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a — angle of fire 

y — y-axis position of bullet 

lin, col = line and column position of bullet corresponding 
to (y,x) 

2 = counter used to drop moon out of sky 

2$ = dummy variable 


SCREEN LAYOUT 





SUBROUTINES 


5Н500: Press ENTER 


PROGRAM LISTING 
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78 DATA “A”, 
,180,"B",120, 
,120,120,"0",1 
5,1 

88 DATA "D",e 
"Е",60,108,184,8 
5,"F",0,0,0.1 
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11а CLS : PAPER 1: INK 7: BORDE 
: 7: FOR 1-0 TO 28: PRINT TAB зі 
S" ^. NEXT i 

128 LET d-INT !RNDs18412!): LET 


213 30 LET m=INT iRNDs7412): LET m 





=2 +7 

140 PRINT HT ‚@; "Barret: 
H 1) “Angles? «2 FLASH GAT а, 
hd;" ducks";AT i,25;hm;" ids 
AT 2,25;2;" shots" 

15а PRINT BRIGHT 
mi "A'S AT A.M; 8", 


160 PRINT INK 3; 








379 PRIMT BRIGHT 1; i. во 
ca а ақ 21,411; INUERSE 
dH СНЕФ (94453; INVERSE а; "d" 
180 FOR b= 1 та в 
180. PRIHT 8,6;ь; FLASH i;HT 
1,8; "Angle : INPUT "Enter ang 
Le ағ Fire F 
зай LET a= INT а: IF 3:45 ОБ asc 
5 THEN INPUT ia;" іс not between 
and 85." "Reenter ага: 





TO 2868 

PRINT AT 1,8; "Angles"; 
FOR 1:0 ТО 100 

LET x=INT (0,0554154(80-а)):: 
FzisilüB-ili: LET цшіІМТ (fee 


ҮП 





245 PRINT HT 28.d-4; "Mise": 60 








Bi.d-d; "Hiss Go 

TO 295 

258 IF Lin: THEN GO ТО рай 

260 LET hm=hm+1: PRINT AT 1,25; 
Ait 

278 FOR zzi TO 18: PRINT INE 

AT z,.m;" “SAT т41,/(0: "ACP AT тәг,п 
S"UBUIHT z42,m; "OC": ВЕЕР 8.1,1-2: 
НЕХТ = 


ава IF cooled AND с01:444 THEN 


о TO зай = 
290 PRINT AT 28,d-4;"Ouch";: ВЕ 


29$ (ET 54541) PRINT AT 2,85; 
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a 
п. 
т 
1] 

лы 
=. 
йн | 
Ti 

Чи 


ВЕЕР 1,-18 
310 LET ===+1: 
GO SUB Баай 
See NEXT а 
зай PRINT FLASH i; 
end"; AT 12,3; u 
duckz" 

3502 STOP 

S00 INPUT “Press ENTER ta conti 
nue “1215 

510 RETURN 








(Note: The characters А,В,С,ПЕ,ЕС,Н, and J variously distributed 
over lines 150, 170 and 270 must be entered in graphics mode (G 
cursor).) 


NOTES 


1. The path of the bullet is plotted using 
x = INT (0.056*i*(90— a) 
and y = INT (i*(100—i)*0.07) with i from 1 to 100 
The x equation is chosen so that when a=45 then x is almost 255 (i.e. 
far right of screen) when i is 100. Similarly the y equation is chosen so 
that the bullet is highest (y approximately — 175) when i is at its 
midpoint, i.e. 50. 


2. Тһе ATTR function is used to detect whether the bullet hits 
anything useful (i.e. moon or duck) in the same way as in the 
Headquarters program. Both the moon and the duck are drawn 
BRIGHTIy. 
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ga] 
7.1 HIGHER-LOWER 


CHAPTER SEVEN 


DICE GAMES 





DESCRIPTION 


In general, dice games do not require very much skill, apart from 
awareness of simple probability theory. In Higher-Lower, a die is thrown 
and the player has to guess whether the next throw is going to produce 
a higher or lower number. The player places a bet on each attempt, and 
if the guess is correct the return is double the bet (otherwise the bet is 
lost). $50 is allocated as starting money and the game ends when 
either the player runs out of money or reaches $500. In the latter case, 
the program shows how many attempts it took. The “house” always 
wins when a die value repeats since the player is not allowed to bet on 
the same value reappearing. 


METHOD 


(Р 


Initialize screen and variables 
a) Set screen colors (10) 
b) Print titles (25, 65, 70) 
с) Set initial money held (m) to 50 and display (30) 
d) Set up array of die patterns (d$) (40-50) 
e) Set no. of turns (t) to 0 (55) 
f) Display die with random value (n) (b5-60 and SR600) 
Player's go 
a) Set old die value (о) їо n (75) 
b) Clear message lines (SR550) 
c) Enter bet(b) (80) 
d) If bet invalid then (90-100) 
(i) Message and reenter 
(ii) Go to (d) 
e) Change money held (m) by —b (110 and 58750) 
f) Display bet 
g) Enter whether higher or lower (b$) (140) 
h) If b$ invalid then (150-155) 
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(i) Message and reenter 


(ii) Go to (п) 
i) Display higher/lower (160-170) 
j) "Roll" die to random value (n) (68600) 
К) Increment number of turns (t) (190) 
1) If bet correct then (200-215) 
(i) Message and sound (225) 
(ii) Change money held (m) Бу 2*b (220, 230 апа SR750) 
(iii) If money equals or exceeds 500 then (230) 
A) Message and sound 
B) Go to 3 : 
m) If bet incorrect then (240) 


(i) Message and sound 
(ii) If no money left then 
A) Message and sound 


B) Go to 3 

n) Enter value z$ . (250) 
0) If 2$ = 0 then 

(i) Message showing money left (m) (260) 

(ii) Go to 3 
p) Go back to 2 (250) 
End 
a) Rerun or stop (300-310) 


SCREEN LAYOUT 
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| - LOHNER 
MONEY HELD: $188 


-------- 


YOUR БЕТ: gae | ОЧ jlower j 


YOU HAVE WON $50 





Chapter Seven 
VARIABLES 


m = money held (initially = 50) 

d$ holds die patterns 

i, = general purpose counters 

t — number of turns so far 

I9, c9 = line and column position at which dice displayed 
(58650) 

п = current value of die 

O — old value of die 

b — amount bet 

b$ = holds | (lower) or h (higher) 

h$ = holds “lower” or "higher", depending on b$ 

hibet = true if h$ contains “higher” 

hidie = true if die is higher than previous (ie. n >o) 

incm = amount by which money held is to be changed 

2$ = dummy value 

m1 = new value of m after incrementing by incm 


ROUTINES 


$А550 = clears message areas on screen 

SR600 = rolls die to value n. Entered at line 610 when setting 
up the initial die value at the start. Uses SR650 

SR650 = displays die, value n, at position I9, c9 

SR750 — changes 'money held' value on screen by incm 


PROGRAM LISTING 





55 LET t 

в: GO SUB 5 
ва PLOT 

d o 8,.,-57: 
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74 







78 RT 


2,-8 





но үн 


р 





1868 
+ ha 
со TO әз 
ias IF b =m THEH PE 
3 o nang ь 
ы. г 
-b: G 
14.25 
ЗНЕГ 


14 2 INPUT Eos 
E 





@: IF b$z"h" THEN LET h£-"hiahe! 
“2 LET hibetzl 

170 PRINT HT 14,83; FLASH 1;Һ% 
150 са SUB вая 

180 LET 1=%+1 

200 LET hidie 
815 IF hidie: 


вес LET incm 
225 PRINT AT 
g°;incm: BEEP 






= 

228 со SUB 
РБІМТ AT 22 
he bank in 
1.25 BEEP 

235 ша TO 

ваз PRINT 
ng": ВЕЕР 1, 
HT AT 28,3; 

бєрї": Е 

: GO та 3 

250 INPUT ет 
her bet, or & ta = 
IF z$i:"@" THEN G 
S68 PRINT HT 28.5 
with фт 

зав INPUT “Press i 
to stop"; THE 2%: 
ЕН RUM 

зіп ЭТОР 
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^i 
mio c coi Cn cn 


l,CcH8;" "uw: 
+ PRINT din. 
INT HT LO+¢i¢e,c 

i 

558 PAPER 7: INE а: ВЕТЧАН 

758 LET milzmairncim 

768 FOR ism TO mi STEP i-2simi: 
ті 

тт@ PRINT HT 2,81:1:" ": BEEP 
.U1,15 

тай NEXT i 

798 LET mzmi: RETURN 





(Note: Enter the contents of the strings at line 50 using GRAPHICS 
mode with Ш and SPACE—do not use INV. VIDEO as this produces 


extraneous characters.) 


NOTES 


1. Many of the features of Higher-Lower can be directly used in 
other dice games, and for this purpose several general subroutines are 
used. In particular, SR650 may easily be transferred to other programs 


—it draws a 7 x 7 die.with its top left hand corner at line 19, column 


C9, with value n. It uses array d$ and therefore lines 40 and 50 which 


set up these die patterns would also be needed. The seventh value 
allows for a blank die. 


2. Most dice games are simple in concept, but can be made 
much more interesting by thoughtful input validation (e.g. line 155, 
making sure the player does not bet ‘‘Higher’’ when the die shows а 
6); by suitable messages (e.g. line 105); and by good screen layout. 


3. You must use lower case for this game (as well as for the 
other two games in this chapter). 
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7.2 TRIPLE 


DESCRIPTION 


The player starts with $50 and bets on the occurrence of a number on 
three dice. If the chosen number comes up on one die, the player 
recovers the bet, if it appears on two dice, the player wins at two-to-one 
odds, and if it is on all three dice, the win is at three-to-one. The game 
ends when the player runs out of money or if the win is more than 


$500. 


METHOD 


1. 
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Initialize screen and variables 
а) Screen colors 
b) Print titles 
c) Set money (m) to 50 and display 
d) Set up array of dice patterns (d$) 
e) Draw dice shapes 
f) Set turns (t) to 0 
Player's go 
a) Clear message lines 
b) Display dice blank 
c) Add 1 to turns (t) and display 
d) Set matches (ms) to 0 
e) Enter bet amount (b) 
f) If b invalid then 
(i) Message and reenter 
(ii) Go to (f) 
g) Display bet (b) 
h) Change money held (m) by —b 
i) Enter bet number (bn) 
j) If bn invalid then 
(i) Message and reenter 
(ii) Go to (j) 
k) Display bet number (bn) 
1) ‘Roll’ dice to values n(1),n(2),n(3) 
m) For each die 
(i) If die 2 bet number (bn) then 
A) Add 1 to matches (ms) 
B) Message (MATCH) 
(ii) Repeat to (m) 
n) If no matches (ms = 0) then 


(10) 

(20, 80) 
(30) 

(40-50) 
(70,90,100) 
(110) 


(120) 
(130) 
(140) 
(140) 
(150) 
(160-170) 


(180) 
(180 and .SR700) 
(190) 
(200) 


(210) 
(220 and SR500) 
(230) 
(240) 


(260) 
(270) 


Chapter Seven 
(i) Message (NO MATCHES) 
(ii) If no money left (m = 0) then 
A) Message (OUT OF MONEY) 
B) Go to (3) 
(iii) Go to (p) 
о) (Matches) 


(i) Message showing winnings 


(275) 
(280) 
(ii) Change money held (m) by b*ms (58700) 
(iii) № money (m) equals or exceeds $500 then (290) 
A) Message (BROKE BANK) 
B) Go to (3) 
p) Enter value z$ (300) 
q) If 2$ = 0 then 
(i) Message showing money left (m) (310) 
(ii) Go to (3) 
r) Go back to (2) (300) 
3. Епа 
a) Вегип or stop 
SCREEN LAYOUT 


(320-330) 


HONEY 


HELD: $48 


gia | 





ow 8 
i win $18 
VARIABLES 


m = money held 
d$ = holds dice patterns 
i,j,k = general purpose counter 


77 


Creative Games for the Timex Sinclair 2068 


array n — holds values of three dice 

t — number of turns so far 

п = value of dice displayed by 58500 

b — amount bet 

incm — amount by which money held is to be changed 

bn = number bet upon 

z$ = dummy value 

ms = number of matches between bn and array d 

I9, c9 = line and column position at which a die is displayed 
(58550) 

m1 = new value of m after incrementing by тст 


ROUTINES 


SR500 = calls 58550 three times, with dice по. = 1,2,3 
respectively 

SR550 displays dice with random value, or set value (n) if n not 
equal to 0 

SR600 — draws edge of dice 

SR700 — changes value of money held by incm 


PROGRAM LISTING 


IHE 20: PAPER 7: BORDER 7: Е 
d. CES 

PRINT aT ا‎ UTOR LP L E" 
LET m= PRINT AT 2,4; E 
ELD: Ж”; Fia 
DIM 4807 
dti? 9 ч 


ғ 
T: 
La fo Cn e» 












fa c e T a a T 


Xi 
rm 
T F 


AUOD 


SUB 888: PL 
PLOT 183 


какап coni 
б) би 
1 is 
тїт] 


Шош c 
Th 
г 


uw 
pags 


DUET 
Tr 


TRITT 
Tuer At 


“Дэн 


ni 


78 


"a л 


a m us 


желй 
= 


b 
t 
b 
$ 
Е 


228 ЭРЧ IMS 
dice' 
заа 


I =“ ms y 





RETLIRH 
LET n 
iP nt 


fü ~J Е es a 


[o Do Lor Der pos 





PRINT 


58 T 
PAPER 2: 
A 


1100: 





bms 
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: PRINT d$iníii,ji;" “j: NEXT i: 
PRINT HT i2S4ks2,.,c23;" "E 
EXT k 

S92 IF п=@ THEN ВЕЕР .5,18 

595 PAPER 7: INK 8: RETURN 

Баа GRAY 57,0: DRAH 8,-57: DRAH 
-57,0: DRAH 0,57: RETURN 

788 LET mizmaincim 

718 FOR ism TO mi STEP i-2asimi« 
ті 

тей PRINT AT 2,21;i;" “: ВЕЕР 
481,15 

730 NEXT i 

742 LET mzmi: RETURN 


Бай FOR kzi ТО 3: PRINT AT 18-45 
*2-1.,c8;" ";: FOR 1:35К-В TO Bet 
3 Ед 


H 


(Note: Enter the contents of the strings at line 50 using GRAPHICS 
mode with lll and SPACE—do not use INV. VIDEO as this produces 
extraneous characters.) 


NOTES 


1. Subroutine 550 is used in two ways in the program: to 
generate and display a random dice value, or to display a blank die, 
for example at the start of each go. Value n is used to indicate which 
is required: at line 220 the routine is called (via SR500) with n = 0, and 
п= 7 when $8500 is called at line 130 and 5В550 then displays the 
dice pattern corresponding to 7 in the DATA statements of line 50 i.e. 

a blank die is displayed. 


73 PLAYING THE NUMBERS 


DESCRIPTION 


In this game two dice are used and the player and the TS2068 are 
opponents. On each attempt the player (or TS2068) has to guess three 
features of the two dice to be thrown, namely whether the sum will be 
odd, what the sum will be, and what the dice values will be. Correct 
answers to these three questions give scores of one, two, and three 
respectively. The first player to reach eleven wins. The TS2068 does 
not cheat by looking ahead, and just to be generous, the user always 
starts first. 


METHOD 


1. Initialize screen and variables 
a) Set screen colors (10) 


80 


b) Set up array of dice pattern d$ 
C) Print titles and draw dice 
Player's go 
a) Set players go to 1 
b) Enter whether odd or even 
с) If invalid then 
(i) Message and reenter 
(ii) Go toc 
d) Display odd/even 
e) Enter sum of dice (sb) 
f) If invalid or inconsistent then 
(i) Message and reenter 
(ii) Go to f 
g) Display sum sb 
h) Enter dice numbers b1,b2 
i) If invalid or inconsistent then 
(i) Message and reenter 
(ii) Go to i 
j) Display dice numbers b1,b2 
k) ‘Roll’ the dice, giving n1 and n2 
|) Score the bet against п1 and n2 
m) Add score to player's score, ps 


n) If ps greater than or equal to 11 then 
(i) Message declaring player the winner 


(ii) Go to 4 
o) Press ENTER and clear screen 


7520685 go 
a) Set players go to 0 


b) Generate numbers b1 and b2 at random 


c) Calculate sum of b1 and b2 (sb) 
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(40-50) 
(60-95) 


(100) 
(110) 
(120) 


(130-140) 
(150) 
(160-180) 


(190) 
(200) 
(210-220) 


(230) 
(58500) 
(58700) 

(250) 

(260) 


(58850) 


(270) 
(280) 
(290) 


d) Display Т520685 bet: whether sb odd even, sb itself 


and b1 and b2 
e) Roll the dice giving n1 and n2 
f) Score the bet against n1 and n2 
g) Add score to TS2068’s score, ss 


h) If ss greater than or equal to 11 then 
(i) Message declaring TS2068 the winner 


(ii) Go to 4 
i) Press ENTER and clear screen 
j) Go back to (2) 


End 
a) Sound 
b) Rerun or stop 


(290-310) 
(58500) 
(58700) 

(330) 
(340) 


(58850) 
(350) 


(360) 
(380-390) 
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SCREEN LAYOUT 








YOUR BET 








VARIABLES 
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d$ — holds dice patterns 

ijj = general purpose counters 

n1 = value displayed on first die 

n2 = value displayed on second die 

ps player's score 

ss — TS2068's score 

x$ = ''o"/"e" - player's entry of odd/even 

evenbet = true if bet is even 

evencalc — true if sum of two numbers chosen by player is 
even 

evensum - true if dice give even sum 

e$ = "even" /''odd" 

sb — sum bet 

b1, b2 = dice numbers bet 

score = score attained by one bet 

playersgo = true when it is the player's go 

2$ = dummy value 

n = dice value parameter used by SR650 

I9, c9 = line of column position at which dice displayed by 
SR650 

| = line position 

с = column position 


Chapter Seven 


ROUTINES 


5В450 = draws lines around the edges of dice 

SR500 - rolls dice to numbers n1 and n2. Uses SR 600 
SR600 = sets positions to display dice and calls SR650 
SR650 = displays a die, value n, at position I9, c9 
SR700 — scores a bet 

SR85@ = clears bet lines and dice 


PROGRAM LISTING 










10 ІНК 
LAZH 8: 
22 FüR 
ЦАВ "GU. 
за DAT} 
78,285 
48 
READ 
Бо 
У 


es 

“45 Л INPUT 
156020 IF zb: 
+12 THEN IN 
nter іг 
170 


188 PRINT 
iz “jsb 

200 INPUT "E 
Біз igi stab 
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218 IF bi:»INT bi OR b2::» 
OR Ь1:1 OR 68:1 OR bi: OR b2:5 
THEN INPUT “Impossible. Reente 









Filr- bl1;" іріш";ыьр: GO TO 218 
20 It Бізьг 25b THEN INPUT {bi 
rer БВ"; Sb; " Reenter (¢13=" 





25-28 {Al ="; БЕ: GO TO 218 
230 PRINT AT 13,3; "The numbers 
are "jbl;" & ";b2 
г40 cO SUB 506: cO SUB 788 
250 LET р$=р5+5 саге 
260 IF р=}=11 THEN PRINT AT 4,1 


4; FLASH 1;р5;ЯТ 21,7; Yau are 
he winner!^": GO TO 368 
255 sa SUB 559 


= 
zu 
n T 
H 
zt 
=r 
1 
-u 
- 
ІЛ 
ь 
ta 


s," MY БЕТ": LE 
LET ьЕ-ЕМ di 


T pia gersgoz-ü 
22# LET БісҒЫ 


300 LET e$="odd": IF evenbet TH 
EN LET e&-"even" 
SAT Oi m 





winner”: 
заа са TO 3 


P .5,0 





EN BUN 
зад STOP 
52 DRAW 57,2 
-57,0: DRAW à RETURN 
г 
% 


DRAW 8,-57: DRAH 
= ENTER ta roil 


сәй INPUT "B 
dice"; LINE z КЕ 
Біз LET nizFH di): LET nz-zFH di 
‹ GO SUB 5868 
Бей RETURN 
@ LET neni: LET 18-27: LET G93 
GO SUB 558 
LET гарж: LET 18-15: GO SUB 


RETURN 






PAPER 2: IHR F 
PRINT AT i3,ca; 2 
FOR іші TO 3: PRINT AT 
cg tge FOR i тп 
PRINT 484 (533: 2 ac 
IHT AT 1 9+:38, са; ў 
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Bae P 
тай L 
FiBL 
рді 
Рей IF 
HT AT : 
LET 
a 4; 
ТЕ 
HE. 
LE 
5; 
ТЕ 
HD 
HE 
GO 
PR 
PR 
Ley 
ТЕ piayers 
зай FOR 
FERE F- 
810 RETU 
su INPUT 
FOR 
“;: NEST 
aou LET 
GO SUB вай: 
650 
S72 RETURN 


(Note: Enter the contents of the strings at line 50 using GRAPHICS 
mode with Ш and SPACE—do not use INV. VIDEO as this produces 
extraneous characters.) 


NOTES 


1. Much of the validation built in to the “player's go’ section 
of the program is necessary because of the order in which the three 
questions about the dice are asked. It could be made much simpler if 
just the two dice numbers were asked for and the program calculated 
whether the sum was odd or even, and what the sum was, as it does for 
its own turn. However, without validation some rather silly responses are 
possible. 


2. The use of several logical variables, such as evensum and 
playersgo, may seem longwinded but they do aid the clarity and 
readibility of what can be a somewhat tortuous set of coding. 
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CARD GAMES 





8.1 INBETWEEN 


DESCRIPTION 


Twenty cards are shown on the screen, face down. The first two cards 
are then revealed, and the player then has to bet whether or not the 
third card's value will lie in between the values of the first two cards. If 
correct, the player wins at 2 to 1 odds, otherwise the bet is lost. The 
game continues with betting whether card 4 will be between card 3 
and card 2, and so on. 


Note that the suits of the cards are irrelevant, they are shown for realism 
but do not contribute to the game. Ace is low and a card 

is considered to lie between two other cards if its value is in the 
inclusive range. Ten is shown as the letter T in this and subsequent 
card games. 


The player starts with $50 and the game ends when the player either 
exceeds $500 or has no money left. 


METHOD 
1. Initialize screen and variables 
8) Set screen colors (10) 
b) Read graphics for hearts, clubs, diamonds and 
spades (20-30) 
с) Initialize $$ to contain suit symbols and v$ values (40) 
d) Put suit graphics into array s (60) 
e) Put card numbers 1-52 into array c (70) 
f) Shuffle array c (80) 
9) Set corresponding card values in array v and suits in 
array t (85) 
h) Print titles (100) 
i) Set money held (m) to 50, and display (100) 
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j) Display twenty cards, face down 
k) Set third card (cd3) to 3 
1) Reveal first two cards 
Player's go 
a) Clear message lines 
b) Enter whether inbetween (y/n) 
с) If invalid entry then 
(i) Message and reenter 
(ii) Go to (c) 
d) Enter amount of bet (b) 
e) If invalid then 
(i) Message and reenter 
(ii) Go to (e) 
f) Display bet 
9) Decrease money held by bet 
h) Press ENTER 
i) Display card numbers cd3 face up 


(105-135) 
(140) 
(150 and $8500) 


(190) 
(200-210) 
(220) 


(240) 
(250,260) 


(280) 
(290 and 58650) 
(300) 


(310 апа $А600 апа 500) 


j) Calculate whether card's value (v(cd3)) lies 


(320-340) 


between values of two previous cards, cd3— 1 and cd3—2 


k) If result corresponds with bet then (350) 
(i)  Congratulatory message and sound; display 
winnings (360) 
(ii) Add amount 2*b to money held (370 апа $8650) 
(iii) If money m equals or exceeds $500 then (380) 
A) Message BROKEN BANK 
B) Go to 3 
(iv) Go to (m) (390) 
1) (WRONG) 
(i) Message NO MORE CARDS and show money left (400) 
(ii) Go to 3 (410) 
A) Message NO MONEY LEFT 
B) Go to 3 
m) Add 1 to card counter cd3 (420) 
n) If counter cd3 exceeds 20 then (420) 
(i) Message NO MORE CARDS and show money left 
(ii) Go to 3 
0) Enter value z$ (425) 
p) If 2$ not equal to 0 then go back to 2 
q) Message showing money left (m) (430) 
End 
a) Rerun or stop (440-450) 


Chapter Eight 


SCREEN LAYOUT 


ЕЕ 


CORRECT! You uin 





VARIABLES 


ij = general purpose counters 

х$ = graphic character being initialized (suit symbol) 
— binary pattern used for setting up graphic 

s$ — suit initials H, C, D, S 

v$ = values of cards A, 2, 3, ..., 9, Т, J, О, К 

array c = holds the numbers 1-52 representing individual cards 

array t = holds the suit numbers of the cards in array c 

array v = holds the value numbers of the cards in array c 

array s = holds the codes of the graphic characters for the 
suits 

г = a random number (1-52) used in shuffling the cards 

z,z$ = dummy values 

m = money held 

cd3 = counter showing position of card currently bet upon 
(3-20) 

a$ = user's answer to question “Inbetween?” 

betin = true if user’s bets on inbetween 

b = amount of bet in $ 

w$ = YES/NO corresponding to a$ 

іпст = amount by which money held is to be changed 
(Бу $8650) 

п = parameter to 58600 (card sequence number) 

max = larger value of the two cards preceding card cd3 
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min — smaller value of the two cards preceding card cd3 
in — true if the card does lie between the two preceding 


cards 
vn — holds value of the card currently being displayed by 


SR500 
= holds suit number of card currently being displayed by 


$А500. 
I1, c1 = line and column position of сага number п on screen 


x1 — units part of number n 
x10 — tens part of number n 
m1 = new value of m after being changed by incm 


SUBROUTINES AND FUNCTIONS 


5А500 displays а card, sequence number n, at positions (11,с1) 

SR600 calculates screen position (11,с1) of card, sequence 
number n 

SR650 changes displayed value of money left by incm 

FN b = calculates larger value of two numbers, a and b 

FN s = calculates smaller value of two numbers, a and b 


PROGRAM LISTING 
10 PAPER 7: INK 8: FLASH 8: ВО 
RDER 7: CLS 






=. Л 
u м 
ҚАС ТЕКЕ 


т 





; “HONEY НЕГО. 
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185 FOR is 
4;AT i ATA 
110 PRINT 
PRINT : GO 
120 FOR i= Н 

+1-2; INVERS 
150 si^ i i 








ml 


nmi 


=1: LET. nz d: 1 





"U: NEXT i 
вай PRINT HT 13,8; 
ue af CARD 
CARD “;с4з 


мээн 


210 INPUT “Inbetween? iu-ni1"; L 





@ IF ages "yg" AND афі>п” THEN 


( ut 
480 INPUT "How much шіні чан be 
$ 





t "ib 
250 IF bx INT b OR 6:1 THEN INP 
UT “% nat " 


= 
- 
oniy. How much? $ 
d 


rm 
Ч ni ШІК ИТЕН fe 


ға ін 
La zz Cau 
вэ rap 
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зай GO TO dea 
488 ВЕЕР 1,-15: PRINT AT 18 
rou are wrong” 
418 IF m Ti HT 28,23; 

IHR 1; "Th = 
1": GO TO 442 
: us а 
2 N 


1-1@+х1@ 


505 IF х1-0 Т 

LET х1=19 

618 

Бей 

638 

65@ LET milsm+incm 

668 FOR ism TO м1 STEP i-2simi: 
fmi 

67@ PRINT HT 3,21;i;" ": BEEP 
241,15 


вай МЕХТ i 
5389 LET mzmi: RETURN 


NOTES 


1. Many of the instructions and routines included above may 
be used in any card game program. Consider first the method by which 
the shuffled set of cards is set up. Array c holds 52 values of 1-52 
where 1 represents the ace of hearts, 2 represents the two of hearts and 
so on up to 52 representing the king of spades. Thus suits are 
organized in hearts, clubs, diamonds, spades sequence and within a 
suit the values start at ace and go up to king. The card numbers are 
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initially put into array c in sequence (line 70 above) and are then 
“shuffled.” There are several techniques of doing this, but the simplest is 
shown at line 80: each card in the ‘pack’ is swapped with another card 
in a random position. 


2. Itis not sufficient to display a card as just a number between 
1 and 52 so it is next considered how this number, e.g. 40, is 
converted to a recognizable form, e.g. A S for the ace of spades. A card 
has a specific position number or value, and a suit. Its suit is easily 
calculated since 

hearts — numbers 1-13 

clubs = numbers 14-26 

diamonds = numbers 27-39 

spades — numbers 40-52 
i.e. given a card number c, its suit t can be found from the formula: 

t = INT ((c—1)/13) +1 


This is used in line 85 of Inbetween. Similarly the position or value of a 
card c in suit t is found by 


м = c—13*(t—1) 
also used in line 85 above. 


The variables v and t can then each be used as subscripts of a string: 


Take v$ as “А23456789Т./ОК” (the values) 
and s$ аз “НСО5” (the suits) 


and then the value of a card c is v$(v) and its suit is s$(t). It is finally 
a simple matter to use the corresponding graphic characters of H, C, 
О and $ for added realism. 

For ease of use, the program calculates an array of values numbers 
(v) and an array of suit numbers (t) corresponding to the card array 
(c) so that card c(i) has value v(i) and suit t(i). 


3. Subroutine 500 is sufficiently generalized to be used in 
other card game programs—it displays a 2x2 card at a position with its 
top left hand corner at line 11, column с1. It follows the normal 
conventions to display hearts and diamonds in red, and clubs and 
spades in black, with a white background for each. 


8.2 CONCENTRATION 


DESCRIPTION 


This is the familiar game of memory. Fifty two cards are laid out face 
down in six rows. The player has to pick a pair of cards (by specifying 
the card sequence numbers shown on the back), the cards are turned 
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over and if they have the same value (e.g. Ace or 5) then they remain 
turned face up. If they are not of the same value they are turned face 
down again. The game continues until all the cards are showing face 
up. Clearly the player's memory has to be exercised in visualizing the 
values of cards previously turned up. 


METHOD 
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1. 


Initialize screen and variables 


8) Set screen colors and clear screen (10) 
b) Set up graphics for card suits (20-30) 
с) Initialize suit (5$) and value (v$) symbols (40) 
d) Put suit graphics into array s (60) 
e) Put card numbers 1-52 into array c (70) 
f) Shuffle array c (80) 
9) Set corresponding card values and suits in arrays 
vandt (90) 
h) Display numbered backs of cards on table (120-150) 
i) Set choices (ch) and pairs (pr) to 0 and display (160) 
Player's choice 
a) Clear message line (200) 
b) Enter first member of pair (p1) (200) 
с) If entry invalid then 
(i) Message and reenter (210-220) 
(ii) Go to (c) 
d) Turn over card р1 (230 and SR's600 and 500) 
e) Enter second member of pair (240) 
f) If entry invalid then (250-270) 
(i) Message and reenter 
(ii) Go to (f) 
g) Turn over card p2 (280 and SR's600 and 500) 
h) Add 1 to number of choices (ch) and display (290) 
i) If value of card p1 = value of card P2 then (300) 
(i) Message CORRECT and sound (310) 


(1) Mark cards p1 and p2 as chosen (set values to 0) 
(iii) Add 1 to number of pairs (pr) and display 


(iv) If pairs (pr) = 26 then (320) 
A) Message FINISHED and sound 
B) Go to 3 
(v) Go to (k) (330 ) 
j) (МО MATCH) (340) 


(i) Message NO MATCH and sound 
(ii) Wait two seconds 
(iii) Turn cards pf and p2 face down (SR800) 
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k) Press ENTER (350) 
I) Go to 2 

3. End 
a) Return or stop (360-380) 


SCREEN LAYOUT 








—— 
ЫШ ив на аны 
ш. шшш. BH. 
СІЗГЕ B. a 
Pee ee 
ШИШ. LLLI 






LES 











VARIABLES 


ij = general purpose counters 
x$ = graphic character 
x — binary pattern for graphic character 
s$ — suit initials, H,C,D,S 
v$ = values of cards A,2,3,...,9,T,J,Q,K 
array c — holds the numbers 1-52 representing individual cards 
array t — holds the suit numbers of the cards in array c 
array v — holds the value numbers of the cards in array c 
array s — holds the codes of the graphic characters for the 
Suits 
г = a random number (1-52) used in shuffling the cards 
2,5$ = dummy values 
ch = number of choices (of pairs) made 
number of correct pairs chosen 
p1 = first member of a pair, as a card sequence number 
p2 — second member of a pair 
— parameter to SR600 - a card sequence number 
vn = value number of a card (in SR500) 
sn — suit number of a card (in SR500) 


75 
= 
И 
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x1 = units part of number n 
x10 = tens part of a number n 
11,с1 = line and column position of a card 


SUBROUTINES 


$8500 displays а card, sequence number n, at position (11,c1) 

SR600 calculates screen position (I1,c1) of card, sequence 
number n 

SR800 displays the numbered back of a card, sequence 
number n 


PROGRAM LISTING 


1а PHPER 7: 
RDER 7: CLS 
= isl 









cate 2 






нт 
a+ ІС 
= 
! 







и 
HEXT іс PHI 
130 FOR ісі 
"U: WEST d: в 
140 PAPER 7: Р! 
‚.-151: DRAH 
ы 122,80: DRAH 
150 FOR n-i 
PRINT HT 11,51; 
T n 
15а LET ch=8: LET рг=@: PRINT Я 
T 16,3; "CHOICES: 8 i: 
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[7 hin нн ты 
Fr E en 










T 
! 


хон 


тї 
Гг тыһшып Шы 


Ea pi 
1-4 ил кет 21171 


ra ci 








я 
нч 

т 
5 
22 





т 


ЖЫ IE 
тила TI 
“° TI TIM ТІ 


= 






кет 
(7 

ж 

І ЕТТІ 
24; 


Bec IF =# THEN LET хїйзх18-1: 
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NOTES 


1. It is important that the player is not allowed to pick а card 
that has already been paired. These cards that have already been 
paired and turned face up must be distinguished in some way: this is 
done by setting the appropriate value numbers to 0, and when a card 
is chosen by the player it is only allowed if the value number is non- 
zero (see lines 310 and 220). 


8.3 BLACKJACK 


DESCRIPTION 


Blackjack has several different variations but the basic aim is to arrive at 
a hand of cards the values of which total twenty-one or as close below 
twenty-one as possible. The player starts with two cards, and thereafter 
has a choice of whether to accept another card (to TWIST) or not (to 
STICK). If the player's hand exceeds twenty-one, the result is a BUST. 


There are five sets of hands in each game and there is a regulated bet of 
$10. The player starts, and if the hand does not exceed twenty-one, the 
"house" (i.e. the TS2068) plays next. The houses strategy is not 
complex and can either be worked out from playing or from the program 
itself. If the player wins, the prize is $50, while if it is a draw, the player 
regains the bet (i.e. $10). Cards are valued between 1 and 13 with the 
ace always being low. 


METHOD 
1. Initialize screen and variables 
a) Screen colors (10) 
b) Set up graphics for suit symbols (20-30) 
с) Set up suit initials (s$) and value symbols (v$) (40) 
d) Set up array s containing graphic symbol codes (60) 
e) Setup cards 1-52 in array c (70) 
f) Shuffle cards (80) 
g) Set up card values (array v) and suits (array t) (90) 
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h) Set up screen layout (100-120, 140) 
i) Set money m to 50 and display (130) 
j) Set bet (b) to 10 (130) 
k) Set card at top of pack (cd) to 1 (130) 
For go number g from 1 to 5 (200 ) 
a) Clear message lines and card table on screen (200 ) 
b) Display go number and bet (219) 
c) Decrease money (m) by bet (b) (220 and SR650) 
d) Players go: (240) 
(i) Display two cards for player (SR800) 
(ii) Calculate sum (pt) and display 
(iii) If sum » 21 then (250) 
A) Message 'BUST — house wins' 
B) Go to (9) 
(iv) If sum = 21 then (260) 
A) Message 'EQUALS 21' 
B) Go to (e) 
(v) Enter value z$ (270) 
(vi) If z$ not ENTER then (TWIST): 
A) Display another card (280 and SR850) 


B) Add card value to sum (pt) and display 
C) Go back to а(їй) 


(vii) (STICK) 
A) Message 'STICK' and display sum pt (300) 
e) Wait (310) 
f) House go: (320) 
(i) Display two cards for house (SR800) 
(ii) Calculate sum (ht) and display 
(iii) If sum > 21 then: (330) 
A) Message 'BUST — you win' 
B) Go to f (vii) 
(vi) If house sum < = player's sum and (340) 
house sum - 19 then (TWIST): 
A) Display another card (58850) 


B) Add card value to sum (ht) and display 
C) Go back to f (iii) 

(v) If house sum (ht) » player's sum (pt) then (350) 
A) Message ‘HOUSE WINS’ 
B) Go to (g) 

(vi) If house sum (ht) = player’s sum (pt) then (360) 
A) Message ‘DRAW’ 
B) Add bet (b) to money (m) (58650) 
С) Go to (9) 
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(vii) (PLAYER WINS) 


A) Message 'WIN' and display amount (370) 
B) Add twice bet (2*b) to money (m) 
g) Press ENTER (380) 
h) Repeat to (2) (390) 
3. End 
a) Message showing money left (390) 
b) Rerun or stop (400-410) 


SCREEN LAYOUT 


bet i 


Ї 4 10 
ick With 


28 





VARIABLES 
ij — general purpose counters 
x$ — graphic character 
X — binary pattern for graphic character 


100 


s$ — suit initials, H,C,D,S 
v$ = values of cards А,2,3,...,9,Т,),О,К 


array c — holds the numbers 1-52 representing individual cards 

array t — holds the suit numbers of the cards in array c 

array v — holds the value numbers of the cards in array c 

array s — holds the codes of the graphic characters for the 
suits 


r — a random number (1-52) used in shuffling the cards 
2,25 = dummy variables 

m = money held (initially 50) 

b — standard amount of bet 
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cd — sequence number of card currently at top of pack 
ie. next available card 

g — go number 

incm — amount by which money (m) is to be changed 

playersgo — true if it is the player's go, false if the houses's 
go 

pt — player's sum of card values 

ht — house's sum of card values 

п = sequence number of card displayed by 58500 

sn — suit number of card n 

vn — value number of card n 

11,с1 = screen position of top left hand corner of card n 

n1 = new value of money (m) | 

cd1 = sequence number of first card т player's/house's hand 

total — sum of hand 

inct — amount by which sum is to be incremented. 


ROUTINES 


$А500 = displays card number n with top left hand corner at 
screen line 11, column c1 

SR650 = increments money (m) by incm, as shown on screen 

SR800 — deals two cards from the current top of the pack to 
either the player or the house. Calculates sum of cards. 

SR850 — (TWIST) deals one more card from the current top of 
the pack to either the player or the house. 

SR900 — clears screen message areas and 'card table' area. 


PROGRAM LISTING 
10 PAPER 7: ЇМК 8: FLASH 8: Bü 
RDER 7: CL: 
гд FOR i 








за FOR 
ZxRHD3-41: i [135 Li 
(ric LEFT iri=z: NEXT i 
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For a 
iil- + 
{1} Е 
cu Я 
PLE 5 





is PRINT 
BT 10,0; "HO 
13а LET m БО 
т: LET bsi 
284, PRIHT ат” 8, 
E 


züd FOR 4-і TO 
AUZE 180 

210 PRINT HT 15,8; 
“. The bet ч 
геге PAUSE 15 
230 LET SG ed GO gus 6528 

240 LET piauersao-i: GO SUB sea 
: LET ptstotal 

250 IF pt:zi THEN PRINT AT 6,2: 
INVERSE 1; INK 2; "BUST": PRINT 
AT 18,8; “You: bus ti The houze ui 
5.7: GO TÛ 388 

260 IF pt=2i THEN PRINT AT 16,86 
ji Fall have exactly ii": по TO 3 
18 

EFA INPUT “Press ENTER 10 sti 
, ang other key to twist"; LIH 
Ze: IF z$="" THEN GO TO зай 
zagp GO SUB 858: LET ptzptainct: 
ERIHT HT У,4;рі: cO TO 258 
зай PRINT HT 16,8; "You stick 
ЕР 
210 PAUSE вай 
Bee LET piauerzago-eé: GO SUB айй 
LET owe e E 


Қ 


с 
Е 


ж 
£e 
Ni 








AVERSE 1; INK -2: "BUS терт. 





В; The house busti You Wife": 8 
a 
Р 
T 
t 
win 
t 
a З 
а TO 3: 
чт AT 19 ен іп 
$ incm-zs Чи В 65 
a UT “Press ENTER toa conti 
nue“; LINE z$ 
sad НЕХТ 3: f 
5 41. чан h 
488 PAUSE 150 
ER to play aga 
LINE 24: ІР 2 
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мл 










The ES CTI 


"Hp mnes 
угги” 






в 
PR i 1 & d AS 
TH s, РАНЕЕ isü8 PRINT HT 
LET с1:38(с4-04141145: LET 
: 50 SUB Sea 
LET inctzvicdi LET с4:04-1 
RETIR 
FOR 1=15 TO 13: PRINT AT i, 
: HEXT i 
PRINT AT 5,2; " “TAT 7,8; 
» "АТ Тауар “TAT 13,8; 
зай FOR 1-3 TO 12: PRINT PAPER 
4;AT i1,7;" 
=w NEXT i 


аза RETURN 
NOTES 


1. In this game, as in any where the dealer does not deal out 
all the cards at first, the position of the current top of the pack must 
be carefully kept. Variable cd is used for this purpose in the program 
above, and it is incremented whenever a card is dealt. Variable cd1 is 
also needed when dealing cards to a particular player to show how 
many cards he has received so far, and thus indicates where the next 
card is to be displayed on the screen - in the third, fourth, fifth or 
whatever position. 
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GRID GAMES 





9.1 TREASURE TROVE 


DESCRIPTION 


Many computer games are based on some form of grid or matrix. In this 
chapter we consider increasingly sophisticated games all based upon 
the grid principle. Treasure is the simplest version of a grid game, and 
in fact the grid itself is only conceptual—it does not need to be stored in 
the computer. 


A treasure chest is hidden in a network of caverns and your task is to 
find it. You specify where you want to be in the network by entering 
a horizontal and vertical position. You have five attempts, and after 
each one the computer tells you in which direction to move next. You 
may choose the size of the cavern network at the beginning of the 
game. 


METHOD 
1. Initialize screen and variables 
8) Set screen colors (10) 
b) Set number of turns (ng) (20) 
C) Enter size of grid (gs) (30) 
d) If size (gs) invalid then (40) 
(i) Message and reenter 
(ii) Go to (d) 
e) Draw grid (50-90) 
f) Choose treasure position (tx, ty) (100) 
2. For go number g from 1 to ng (110) 
a) Enter player's move (px, py) (120-140) 
b) If px, py invalid then (SR500) 
(i) Message and reenter 
(ii) Go to (b) 
с) Display player's position (px, py) (150) 
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d) If player's position — treasure position then 


(i) Message of congratulation 
(ii) Go to 3(b) 


e) Message regarding direction to proceed 


f) Repeat to (2) 


3. End 


a) Message of commiseration 
b) Highlight treasure position 
c) Rerun or stop 


SCREEN LAYOUT 


Га 
3 
5 
is 
já 
11 


C3 БО d Co D Ей 


Fx 


VARIABLES 
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ng — number of turns allowed 

gs — dimension of grid 

| = line counter 

— column counter 

— length of lines DRAWn around grid 
— y-co-ordinate counter 

— parameter for FUNCTION d 

tx, ty — position of treasure 

g — go counter 

pos — parameter for SUBROUTINE 500 
px, py — player's position 

z$ = dummy variable, = 1 to rerun 


с 
а 

у 

n 


МЕХТ HONET 





(160) 


(170-210) 
(220) 


(230) 
(240) 
(250-260) 


Chapter Nine 
ROUTINES 


SR500 — checks that an input value (pos) is between 1 and gs 
FN d = removes first digit from a 2-digit decimal number (n) 


PROGRAM LISTING 







"ізі ГЕТ 
ізшіІМТ IR x 
110 FOR 3=1 7 
120 PRINT AT 8 
T Қы. ыы 
за S 











Ti 


^l 
fanc 


i 
afi 


к” 
ul 
[27] 





Der Der Des] 
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RINT 
Е рох :1 THEN IHPL 
E Reenter ";pos: 


510 RETURN 


Although a complete grid is shown on the screen, the theory of the 
game is simply the choice of two random numbers. In the more 
sophisticated games that follow we see how this simple concept may 
be improved upon. 


9.2 GRAB THE GOBLIN 


DESCRIPTION 


Many grid games involve the tracking down of a creature. In Grab the 
Goblin an irksome goblin is hiding in a three-dimensional network of 
tunnels. The goblin can move north, south, east or west, or 
combinations of these, and up or down, but only one position 

at a time. In this game the size of the tunnels is fixed: there are 

three levels of tunnels, ten by ten square. The player again has five 
attempts to find the goblin, whose movement follows no set pattern. 
The goblin does occasionally however display extreme aggression when 
cornered. Note that the grid axes are labelled O-9 this time, rather than 
from 1. 


METHOD 


1. Initialize screen and variables 
a) Set screen colors 
b) Set number of goes (ng) 
c) Draw format with three grid levels 
(30-90 and SRs700 and 710) 


d) Set initial goblin position (gx,gy,gl) (100 ) 
2. For до number g from 1 to ng (110) 
a) Enter player's move (px, py, pl) (120-160) 
b) If px,py,pl invalid then (58500 and 160) 


() Message and reenter 
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(ii) Go to (b) 
c) Display player's position (px, py, pl) (170) 
d) If player's position = goblin's position then (180) 
(i) Message of congratulation 
(ii) Go to 3(d) 
e) Change goblin's position (gx,gy,gl) at 
random (190-230 and SR600) 
f) If goblin's position — player's position then (240) 
(i) Message concerning attack 
(ii) Go to 3(c) 
9) Calculate and display direction of goblin from 
player " 
h) If goblin close to player then display warning (320) 
i) Repeat to (2) 
3. End 
a) End message 
b) Reveal goblin's position 
c) End sound (350) 
d) Display goblin (355) 
e) Rerun or stop (360) 


SCREEN LAYOUT 
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VARIABLES 


па = number of goes allowed 

| = line counter 

x — x-co-ordinate counter 

y — y-co-ordinate counter 

n — counter for labelling y-axis 
gx,gy,gl = position of goblin 
px,py,p! = position of player 

pos = parameter for subroutine 500 
gc = parameter for subroutine 600 
g = go counter 

i = general purpose counter 

25 = dummy variable, = 1 to rerun 


ROUTINES 


©8500 = checks that an input value (pos) is between 0 and 9 

$В55@ = clears message lines 

5В600 = increments a goblin co-ordinate by —1, 0 or +1 

SR700 and SR710 = used in drawing grids 

FN g = true if goblin and player at same positions, otherwise 
false 


PROGRAM LISTING 
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to stop"; 
ЕН RUH 

зта STOP 
ваа IF poli: 
ро®+@ ТНЕН 

Reenter "; 
5180 RETURN 

сай FOR ісі? TO 2i: PRINT HT i, 
as" 

и; НЕХТ i: RETURN 

БӨӨ LET 2с-ас-ізіІМмтТ iRHD«s31: IF 
gci@ THEN LET gc=8 

51a IF 95:9 THEN LET 80-38 

62a RETURN 

TAR PLOT х,143: DRAH 8,-78: RET 


710 PLOT 2,4: DRAW 79,0: PLOT 8 
8,4: DRAW 798,80: PLOT 176,9: DRA 
79.0: RETURN 


NOTES 

1. Once again an array is not needed to store the grids, but 
here more variables are needed to keep track of the goblin and the 
player, since we are now working in three dimensions. 


2. Asaresult of the randomizing routine, the goblin does tend 
to stay near a grid edge or the top or bottom levels more often than not. 


9.3 PURSUIT 


DESCRIPTION 


If you derive pleasure from being chased around by malevolent 
monsters, you should enjoy Pursuit. It is particularly a game for 
masochists, because it is also extremely difficult to win. 


For unexplained reasons you find yourself in the lair of a group of 
Gulpers, strange creatures whose sole object in life is to find and devour 
anything edible, and both humans and other Gulpers come into that 
category. The lair is totally surrounded by an antimatter barrier, lethal to 
all forms of life. Finally there are also a few Spongs scattered around 
the lair. A Spong shows little signs of activity until you step on it, at 
which point it dematerializes you. Spongs show no discrimination, 


112 


Chapter Nine 


absorbing both Gulpers and humans alike. Your objective is to avoid 
these many and various hazards for ten turns. On each turn, you move 
one step in any direction and the Gulpers try and catch you. Wise 
players will attempt to lure Gulpers towards a Spong so that there are 
less Gulpers to avoid. A move is specified as an abbreviated direction 
i.e. М,5,ЕУУ,МЕ,5Е,ММ/ or SW. Use * to give up. To change the level of 
difficulty, alter the number of Spongs, Gulpers, or turns in line 10. 


METHOD 
1. 


Initialize screen and variables 

а) Set screen colors (10) 

b) Set number of turns (nt), number of Spongs (ns), 
number of Gulpers (ng) and number of Gulpers 


left (ngl) (20) 
c) Set up user graphic symbols (50-70) 
d) Display symbol key and headings (80) 
e) Draw lair (90-150) 
f) Draw ns Spongs randomly (160 and SR500) 
9) Set position of Gulpers in arrays x and y and 
display (170 and SR500) 
h) Set position of player (px,py) and 
display (180-190 and 57500) 
For turn number t from 1 to nt (200) 
а) Display turn number (200) 
b) Enter player's move m$ (205) 
С) If m$ is "*"' then (207) 
(i) Quit message and sound (and 58900) 
(ii) Go to 3(b) 
d) If direction m$ invalid then (210 and SR600) 
(i) Message and reenter 
(ii) Go to (d) 
e) Calculate players new position (px,py) (220 and 58600) 
f) If object at (px, py) then (230) 
(i) Display message that player hit gulper/spong/ 
barrier (240-270) 
(ii) Sound (SR900) 
(iii) Go to 3(b) (270) 
9) Display player's new position (px,py) (280) 
h) Clear message lines (SR800) 
i) For every Gulper: (30 0) 
(i) If eliminated (ie. line position = 0) then go to (vii) (305) 
(ii) Recalculate Gulpers position to move closer to 
player (320) 
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(iii) If new position — player's position then (340) 
A) Death message and sound (and 58900) 
B) Go to 3(b) 
(iv) If new position — object then (345) 
A) Message that Gulper has been Sponged, or 
Barred and sound (350-365 and SR850) 


B) Decrease Gulpers left (ngl) by 1 
C) Set Gulper's line position x to 0 


D) Go to (vi) 
(v) Display Gulper and sound (370-375) 
(vi) Display number of Gulpers left (ngl) (380) 
(vii) Repeat to (i) (390) 
j) If no Gulpers left (ngl = 0) then (400) 
(i) Message 
(ii) Go to 3(b) 
k) Repeat to (2) (410) 
3. End 
a) Survived message (420 ) 
b) Rerun or stop (430-450) 
VARIABLES 
nt number of turns 
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= number of Spongs 

ng - initial number of Gulpers 

па! = number of Gulpers left 

arrays x,y = two arrays holding the line and column positions 
of each Gulper. If a Gulper is destroyed its x-value is set to 0 

i,j,k = general purpose counters or function parameters 

x$ — used to hold character for setting up user graphics 

x — used to hold binary value for setting up user graphics 

l,c = line and column positions found to be free (by SR500) 

px,py = player's line and column position 

t = turn counter 

m$ = direction to move (= N/S/E/W/NE/SE/NW/SW/*) 

ок = 1 if m$ is invalid, 0 if invalid 

ix — line increment by which the player's position is to be 
changed to move 

iy = column increment by which the player's position is to be 
changed to move 

w$ = word showing object player walked into 

Im = length of direction entry m$ 

y$ = parameter used by SR630 - a single direction letter 
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SCREEN LAYOUT 














ROUTINES 


SR500 = finds a position (I,c) in the lair not occupied by a 
Spong, Gulper or barrier 
SR600 = test whether m$ is a valid direction. Sets ok to 0 
if invalid or 1 if valid. Calls SR700 and SR750 
SR700 = calculates increment for px, based upon direction m$ 
SR750 = calculates increment for px, based upon direction m$ 
SR800 = clears message lines 
SR850 = funeral sound for dead Gulper 


1 


$4900 = funeral sound for dead player 

FN | = gives a random line position within the lair (2-14) 

FN с = gives a random column position within the lair (2-19) 

FN i = using FN b, extracts the ink colour of a position (|,К) 
in the lair 


FN b = as above 


PROGRAM LISTING 


nmt 

е 
Fn mm 
mna 
-l 





115 


Creative Games for the Timex Sinclair 2068 


116 





(31:11) 






i er’, aT 
2 4.22; 
T Б=Багг 
іє nol"; 
BT 11,25; 
"р 

180 FOR HT i.e 
d Gr d 
110 BRIGHT i 

128 PRINT AT 1,1; "BBBBBBBBBBBBB 
BREBEBE";AT 15,1; "BBBBBBBBBBBBBE 
BBBBBB"'" 

13а FOR i 


ше TO 14: PRINT HT 1,1 
ват Ls 2 .. . E 


140 INK 8: PA 

isa PLOT 8,15 
u в, -2129: D 
a 


R 
“160 FOR ісі TO ns GO SUB заа: 
PRINT HT Lc; INK 1; PAPER 7; "5" 
NEXT i 
`17@ FOR ісі 


LET xíilzi: LET 
6; INK a; "6" 
180 BRIGHT ай 
180 GO SUB 588: LET рх-ї: LET Р 

uzc: PRINT AT p py; "Р" 

220 FOR 1-1 TO nt: PRINT AT 8,3 


2A5 IHPLUT “Enter direction to м 













FLASH 
т sug 
кіп бб I THEH 
INPUT ЕВЕ, teg. Su ar Hi: “om 
$: GO TO 218 
ВЕ PRINT HT pH pu; PAPER 5; " 
LE j ix LET PYy=Pputiy: 
232 px pyi 54 THEN GO 
TO 2: 
вас ш 
$-"G 
250 ш 
ЕЯ 3 


220 


ua nac 


FOR 
аз IF 
FRI 


T 
в 


М 


a 
5 
E 
b 


кө 


- 
a 


e ar ei | 


uL 


acu 
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Cn en mne i 


1101-1545) 
ra fa i fa rn 


IF imii OR і1т>Б THEN RETURN 


im-zi THEN LET utS-mmSii!: 
Я тай: GO SUB 750: IF ix=8 
14:0 ТНЕН RETURH 

IF ішсе THEN LET uz-m$ii 


1 
IF їх-8 OR іу=й THEN RETU 


тай: LET u£-m&izi: GO SUB 
R 
648 LET ок=1: RETURH 
| LET 1х-1(4 -5" ОБ us$z"s"1- 
Ч ЭМ” OR Ч өс 0071): RETURN 
7580 LET 14:04 -:"Е" OR g&z"e"i-ií 
4 2017 OR u$-z"us"i: RETURN 
882 FOR 1=18 ТО 28: PRINT AT i, 
e 
“р NEXT 1 


810 RETURN 

850 FOR ісі TO 3: ВЕЕР 1,8%1: В 
EEF .@1,28: NEXT j 

852 RETURN 

зйа FOR ісі TO 4: ВЕЕР .l,28: Б 
БЕР 1,-20: NEXT j: ВЕЕР 5,-20 
810 RETURN 


(Note: The letters P, G, S and B (lines 80, 120, 130, 160, 170, 190, 
280, and 340-370) must be entered in graphics mode (cursor G).) 


NOTES 


1. The “test for a hit" routines for both Gulpers and player 
again use the ATTR function to test for BRIGHT characters. Gulpers, 
Spongs and the barriers are the only BRIGHT items on the grid, so 
this test works perfectly. However, distinguishing a Spong from a 
Gulper and so on is more difficult. The ink color value of an attribute 
byte is held in bits 2 to 0 and this value is extracted by function FN b. 
Providing Spongs, Gulpers and barriers have their own distinguishing 
color (blue, red and black respectively) then the object hit may be thus 
clearly identified. 


2. The routines which check the user's entry for a valid 
direction also calculate the effect in the player's line and column 
positions. These routines SR600, SR700 and SR750 merit further 
attention. SR700 sets the line increment (ix) to 1 for N, —1 for S and 
0 otherwise. Similarly SR750 sets the column increment (iy) to 1 for E, 
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— 1 for W and 0 otherwise. SR600 uses both these routines in testing 
the user's input. If the input is one character then both routines are 
called, and if ix and iy are both 0 then the directions cannot have 
been М, S, Е or W so it is invalid. If the input is two characters then 
SR700 operates on the first character (must be N or S) and SR750 on 
the second (E or W). If either ix or iy are still 0 then something is 
wrong so the entry is flagged as invalid. 
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ВЕЕР 
BIN 
BORDER 
BRIGHT 
с 

С 

CHR$ 
CIRCLE 
CLEAR 
CLS 
CODE 
COPY 
COS 
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automatic 
automatic 
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CAPS LOCK (CAPS SHIFT AND 2) 
CAPS SHIFT AND SYMBOL SHIFT 
GRAPHICS (CAPS SHIFT AND 9) 
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SYMBOL 
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SYMBOL 
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SHIFT 


CAPS 


CAPS 
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SYMBOL 
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CAPS 


CAPS 


CAPS 


SYMBOL 
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CAPS 
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SYMBOL 
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RANDOMIZE 
READ 

REM 
RESTORE 
RETURN 
RND 


SAVE 
SCREENS 

SGN 

SIN 

SOR 

STEP [k] 
STOP ІК 
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TO К], ІП or (С SYMBOL F 
и L U 
U 0 САРЅ U 
USR E L 
v L V 
V [L] CAPS V 
VAL E 2 
VALS [E] CAPS or SYMBOL J 
VERIFY E CAPS or SYMBOL R 
w L уу 
уу ІП CAPS үу 
х L X 
x [L] CAPS х 
у L Y 
Y [L] CAPS Y 
2 [L] РА 
7 [Г] САР$ 7 
0 К, [Lj or [С] 0 
1 К), Ш or (С) 1 
2 К), Ш or (C 2 
3 К), Ш or (C 3 
4 К, Ш or (С 4 
5 К, Ш or (€ 5 
6 К, Ш] or (С 6 
7 К, Ш or [С] 7 
8 К], Ш or (C 8 
9 ІК, Ш or (СІ 9 
! К, Ш or (6 SYMBOL 1 
n K, Ш or (C) SYMBOL P 
+ К, Lj or (C SYMBOL 3 
$ К, Ш or (С SYMBOL 4 
96 К, [L] or [C SYMBOL 5 
& К, Ш or (С SYMBOL 6 
: К, Шо [© ЗУМВОЕ 7 
( К, Ш or [С] SYMBOL 8 
) К, Ш or (С SYMBOL 9 
* К, Ш or [С] SYMBOL B 
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; K, U or © SYMBOL N 
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ЕМТВУ 


ү INS % 





V 


*BagmpumnpnERE^ улог т) > urm "V 
























































































































































MODE 
К, L or С 
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K, Ш о С 
K L| or |C 

E 

E 
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SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
CAPS or SYMBOL 
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SYMBOL 
SYMBOL 
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This book contains twenty-one colorful and 
entertaining number games, word games, 
simulations, and games of chance for the 
Timex Sinclair 2068 computer, including: 
* CRACK THE COMBINATION 
* AWFUL ANAGRAMS 
* SHRINK 
SOLITAIRE 
DEAD DUCKS 
GRAB THE GOBLIN 
BLACKJACK 
SINK THE SHIP 
TREASURE TROVE 
Each program listing in this book is accom- 
panied by clear instructions for entry and 
play, and the author includes suggestions 
on how to modify the programs. Besides 
providing hours of entertainment, these 
games can serve as a fascinating introduc- 
tion to programming in BASIC on the Timex 
Sinclair 2068 
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